diff --git a/AF/AF.aspx b/AF/AF.aspx index d4756bf89..7660f2441 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -218,21 +218,21 @@
- +
- +
- - + + @@ -248,6 +248,35 @@
+ + + +
+
+ +
+ +
+
+
+ + + + +
+ + + + + + + + + +
+
+ +
@@ -1156,65 +1185,79 @@ -
-
-
- Servicios + + + + + + +
+
+
+
+
+ + Mantenimientos + +
+
+
+ Agregar +
+
+ +
+ <%-- + + + --%> + +
+
+
+
+ +
+ + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ +
-
- - - - -
+ + + + + + @@ -2076,7 +2119,147 @@ + + + + + + + + + +
+
+
+
+
+ + Producción + +
+
+
+ Agregar +
+
+ +
+ +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + +
+ + + + + + + + + + + + + + + + + +
+
+
+
+
+ + Plagas Enfermedades + +
+
+
+ Agregar +
+
+ +
+
+
+
+
+ + + + + + + + + + + + + + + + + + +
+
+
+
+ + +
+ + + + + + + + + + + + + + + + + @@ -3106,6 +3289,261 @@
+ + + <%--MODAL PRODUCCION--%> + + + + + + + <%--MODAL MANTENIMIENTO--%> + + + + + + diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 8dad34b1f..66b751121 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -245,6 +245,44 @@ Partial Class AF_AF #End Region + + Private Property CveProduccion As Integer + Get + If ViewState("CveProduccion") Is Nothing Then + ViewState("CveProduccion") = -1 + End If + Return ViewState("CveProduccion").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveProduccion") = value + End Set + End Property + + Private Property CveMantenimiento As Integer + Get + If ViewState("CveMantenimiento") Is Nothing Then + ViewState("CveMantenimiento") = -1 + End If + Return ViewState("CveMantenimiento").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMantenimiento") = value + End Set + End Property + + + Private Property CvePlagaEnfermedad As Integer + Get + If ViewState("CvePlagaEnfermedad") Is Nothing Then + ViewState("CvePlagaEnfermedad") = -1 + End If + Return ViewState("CvePlagaEnfermedad").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CvePlagaEnfermedad") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -260,9 +298,12 @@ Partial Class AF_AF ViewState("CveActivoFijo") = Request("CveActivoFijo") CargaDatos() CargaEventos() - CargaActividades() - - 'Configuración de Modalidad Update + CargaActividades() + CargaProduccion() + CargaMantenimento() + CargaPlagaEnfermedad() + + 'Configuración de Modalidad Update BtnGuardar.Text = "Guardar Cambios" LtlTitulo.Text = "Consulta del Activo Fijo:" @@ -271,8 +312,9 @@ Partial Class AF_AF HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;") Else ViewState("CveActivoFijo") = -1 - CargaCombos() - 'Configuración de Modalidad Insert + CargaCombos() + + 'Configuración de Modalidad Insert ImgAddObs.Visible = False LblFechaCaptura.Text = Now.ToShortDateString() LblUsuarioCapturo.Text = UsuarioActual.Usuario @@ -288,6 +330,13 @@ Partial Class AF_AF CargaAFInv() cargaOrdenesdeservicio() + + + + If Request("Op") IsNot Nothing Then + ModalidadesPaginaAF(Request("Op").ToString) + End If + End If End Sub Private Sub cargaOrdenesdeservicio() @@ -373,6 +422,20 @@ Partial Class AF_AF CveEmpresaActual = UsuarioActual.CveEmpresa End Sub + Private Sub ModalidadesPaginaAF(Op As String) + + Select Case Op + Case "AR" 'Arbol Frutal etc + LblFechaCompra.Text = "Fecha de Nacimiento" + LblFechaBaja.Text = "Fecha de Muerte" + TabProduccion.Visible = True + Exit Select + Case Else + Exit Select + End Select + + + End Sub #Region " CARGA COMBOS " Private Sub CargaCombos() @@ -398,6 +461,8 @@ Partial Class AF_AF DdlResponsable.Enabled = False End If + CargaCultivos() + End Sub Private Sub CargaTipoActivoFijo() DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo") @@ -476,6 +541,11 @@ Partial Class AF_AF ' DdlClientes.DataBind() 'End Sub + Private Sub CargaCultivos() + DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlModalCultivosCuadro.DataBind() + DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() End Sub @@ -562,6 +632,13 @@ Partial Class AF_AF DdlModelos.DataBind() DdlModelos.Items.Insert(0, New ListItem("-", "-1")) End Sub + + Private Sub CargaProduccionCuadros() + DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlModalCultivosCuadro.DataBind() + DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + End Sub + #End Region Private Sub CargaDatos() @@ -579,7 +656,13 @@ Partial Class AF_AF TxtDescripcion.Text = ObjActivoFijo.Descripcion TxtCodigo.Text = ObjActivoFijo.Codigo TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero - TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString + TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString + + + + TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy")) + + DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString CargaSubTipoActivoFijo() DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString @@ -654,8 +737,8 @@ Partial Class AF_AF CargaPlacas() CargaLicencias() - CargaSeguros() - CargaServicios() + CargaSeguros() + CargaFallas() CargaAccidentes() @@ -1062,31 +1145,22 @@ Partial Class AF_AF #End Region #Region "S E R V I C I O S - M A N T E M I E N T O" - Public Sub CargaServicios() - Dim TmpServicios As New DataTable - TmpServicios.Columns.Add("CveProveedor", GetType(Integer)) - TmpServicios.Columns.Add("CveCompra", GetType(Integer)) - TmpServicios.Columns.Add("Tipo", GetType(String)) - TmpServicios.Columns.Add("Fecha", GetType(Date)) - TmpServicios.Columns.Add("Proveedor", GetType(String)) - TmpServicios.Columns.Add("Factura", GetType(String)) - TmpServicios.Columns.Add("OdHorometro", GetType(Double)) - TmpServicios.Columns.Add("Observaciones", GetType(String)) - - 'Dim Row As DataRow = TmpServicios.NewRow - 'Row("CveProveedor") = 3100 - 'Row("CveCompra") = 181656 - 'Row("Tipo") = "Preventivo" - 'Row("Fecha") = "01/02/2016" - 'Row("Proveedor") = "EMPRESAS MATCO, S.A. DE C.V." - 'Row("Factura") = "HERAA-158591" - 'Row("OdHorometro") = "198,567" - 'Row("Observaciones") = "Servicio Preventivo 200,000 Kilometros - Servicio Completo" - 'TmpServicios.Rows.Add(Row) - - GvServiciosMant.DataSource = TmpServicios - GvServiciosMant.DataBind() - End Sub + 'Public Sub CargaServicios() + ' Dim TmpServicios As New DataTable + ' TmpServicios.Columns.Add("CveProveedor", GetType(Integer)) + ' TmpServicios.Columns.Add("CveCompra", GetType(Integer)) + ' TmpServicios.Columns.Add("Tipo", GetType(String)) + ' TmpServicios.Columns.Add("Fecha", GetType(Date)) + ' TmpServicios.Columns.Add("Proveedor", GetType(String)) + ' TmpServicios.Columns.Add("Factura", GetType(String)) + ' TmpServicios.Columns.Add("OdHorometro", GetType(Double)) + ' TmpServicios.Columns.Add("Observaciones", GetType(String)) + + + + ' GvServiciosMant.DataSource = TmpServicios + ' GvServiciosMant.DataBind() + 'End Sub #End Region #Region "F A L L A S" @@ -2106,6 +2180,8 @@ Partial Class AF_AF Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL()) Dim ErrorGuardar As Boolean = False + Dim FechaBaja As Date = If(TxtFechaBaja.Text = "", MinFecha, TxtFechaBaja.Text.ToDate) + If CveActivoFijo <= 0 Then 'SALIDA DE ALMACEN PARA IMPORTACION @@ -2123,12 +2199,15 @@ Partial Class AF_AF End If + + If Not ErrorGuardar Then If ObjAF.AddActivosFijos(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble, - TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero, - CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) > 0 Then + TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero, + CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero, + FechaBaja:=FechaBaja) > 0 Then ViewState("CveActivoFijo") = ObjAF.CveActivoFijo Else ErrorGuardar = True @@ -2155,8 +2234,9 @@ Partial Class AF_AF If Not ObjAF.UpdateActivosFijos(CveActivoFijo.ToString.ToEntero, TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, - TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual, - CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) Then + TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual, + CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero, + FechaBaja:=FechaBaja) Then 'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña 'CargaDatos() @@ -3097,7 +3177,8 @@ Partial Class AF_AF TxtDescripcion.Text = DdlAFInvPS.SelectedText TxtValorCompra.Text = Costo.FormatoNumero - TxtFechaCompra.Text = Now.ToShortDateString + TxtFechaCompra.Text = Now.ToShortDateString + TxtFechaBaja.Text = "" TxtNoSerie.Text = TxtAFInvSerie.Text.Trim TxtValorCompra.Enabled = False @@ -3727,5 +3808,491 @@ Partial Class AF_AF ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato) - End Sub + End Sub + + +#Region "Produccion" + + + + Private Sub CargaProduccion() + + Dim ObjAF As New ClsAF + + If ObjAF.GetProduccion(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvProduccion.DataSource = ObjAF.DtResultados + Else + GvProduccion.DataSource = Nothing + End If + + ObjAF.Dispose() + GvProduccion.DataBind() + + UpProduccion.Update() + + End Sub + + + Protected Sub LnkAgregarProduccion_Click(sender As Object, e As EventArgs) + + LblModaProduccionTitulo.Text = "Agregar Producción" + LnkModalAgregarProduccion.Text = "Agregar" + CveProduccion = -1 + + DdlModalCultivosCuadro.SelectedValueExist(-1) + TxtModalProduccionCantidad.Text = "" + TxtModalProduccionFecha.Text = "" + + RegistraScript("$('#DVModalProduccion').modal('show');") + + UpModalProduccion.Update() + End Sub + + Protected Sub LnkGvProduccionEdit_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + CveProduccion = GvRow.DataKey("CveProduccion").ToEntero + Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToEntero + Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal + Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate + + DdlModalCultivosCuadro.SelectedValueExist(CveCultivoCuadroDetalle) + TxtModalProduccionCantidad.Text = Cantidad.ToString("###,###,###.00") + TxtModalProduccionFecha.Text = Fecha.ToString("dd/MM/yyyy") + + + LblModaProduccionTitulo.Text = "Actualizar Producción" + LnkModalAgregarProduccion.Text = "Actualizar" + + UpModalProduccion.Update() + + + RegistraScript("$('#DVModalProduccion').modal('show');") + End Sub + + Protected Sub LnkGvProduccionRemove_Click(sender As Object, e As EventArgs) + + Dim ErrorProceso As Boolean = False + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveProduccionEliminar As Integer = GvRow.DataKey("CveProduccion").ToEntero + + Dim ObjAF As New ClsAF + + If ObjAF.RemoveProduccion(CveProduccionEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + + ObjAF.Dispose() + + + If Not ErrorProceso Then + Alert("Producción Eliminada Correctamente.") + CargaProduccion() + End If + + End Sub + + + + Protected Sub LnkModalAgregarProduccion_Click(sender As Object, e As EventArgs) + Dim ErrorProceso As Boolean = False + Dim ObjAF As New ClsAF + + If CveProduccion > 0 Then + If ObjAF.UpdateProduccion(CveProduccion, CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + Else + If ObjAF.AddProduccion(CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + End If + + + + ObjAF.Dispose() + + If Not ErrorProceso Then + RegistraScript("$('#DVModalMantenimiento').modal('hide');") + Alert("Producción Agregada Correctamente.") + CargaProduccion() + End If + + End Sub + +#End Region + +#Region "MANTENIMIENTO" + + + + + Private Sub CargaMantenimento() + + Dim ObjAF As New ClsAF + + If ObjAF.GetMantenimientos(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvMantenimientos.DataSource = ObjAF.DtResultados + Else + GvMantenimientos.DataSource = Nothing + End If + + ObjAF.Dispose() + GvMantenimientos.DataBind() + + UpMantenimientos.Update() + + End Sub + + + Protected Sub LnkAgregarMantenimiento_Click(sender As Object, e As EventArgs) + + LblModaMantenimientoTitulo.Text = "Agregar Mantenimiento" + LnkModalAgregarMantenimiento.Text = "Agregar" + + CveMantenimiento = -1 + + TxtModalMantenimiento.Text = "" + TxtModalMantenimientoObservaciones.Text = "" + TxtModalMantenimientoFecha.Text = "" + TxtArchivoMantenimiento.Text = "[]" + + RegistraScript("$('#DVModalMantenimiento').modal('show');") + + UpModalMantenimiento.Update() + End Sub + + Protected Sub LnkGvMantenimientoEdit_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + 'CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion, Usuario + + CveMantenimiento = GvRow.DataKey("CveMantenimiento").ToEntero + + Dim Mantenimiento As String = GvRow.DataKey("Mantenimiento") + Dim Observaciones As String = GvRow.DataKey("Observaciones") + Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate + + TxtModalMantenimiento.Text = Mantenimiento + TxtModalMantenimientoObservaciones.Text = Observaciones + TxtModalMantenimientoFecha.Text = Fecha.ToString("dd/MM/yyyy") + TxtArchivoMantenimiento.Text = "[]" + + + LblModaMantenimientoTitulo.Text = "Actualizar Mantenimiento" + LnkModalAgregarMantenimiento.Text = "Actualizar" + + UpModalMantenimiento.Update() + + + RegistraScript("$('#DVModalMantenimiento').modal('show');") + End Sub + + Protected Sub LnkGvMantenimientoRemove_Click(sender As Object, e As EventArgs) + + Dim ErrorProceso As Boolean = False + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveMantenimientoEliminar As Integer = GvRow.DataKey("CveMantenimiento").ToEntero + + Dim ObjAF As New ClsAF + + If ObjAF.RemoveMantenimientos(CveMantenimientoEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + + ObjAF.Dispose() + + + If Not ErrorProceso Then + Alert("Mantenimiento Eliminado Correctamente.") + CargaMantenimento() + End If + + End Sub + + + + Protected Sub LnkModalAgregarMantenimiento_Click(sender As Object, e As EventArgs) + Dim ErrorProceso As Boolean = False + Dim ObjAF As New ClsAF + ObjAF.IniciaTransacSQL() + + + If CveMantenimiento > 0 Then + + Dim FileExtension As String = "" + Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos + Dim Filename As String = "-1" + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + Filename = fileItem.filename + Exit For + Next + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimiento}.{FileExtension}")) + If Archivo.Exists() Then + Archivo.Delete() + End If + + + If Not Filename.FilesMove(String.Format("{0}", CveMantenimiento.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then + ErrorProceso = True + Alert("Error al mover Archivo", TipoMensaje.MsgError) + End If + + End If + + If Not ErrorProceso Then + If Not ObjAF.UpdateMantenimientos(CveMantenimiento, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimiento}.{FileExtension}") Then + ErrorProceso = True + End If + End If + + + Else + + + Dim CveMantenimientoTemp As Integer = -1 + + + CveMantenimientoTemp = ObjAF.AddMantenimientos(CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, "-1") + If CveMantenimientoTemp > 0 Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + If Not ErrorProceso Then + + Dim FileExtension As String = "" + Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos + Dim Filename As String = "" + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + Filename = fileItem.filename + Exit For + Next + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}")) + If Archivo.Exists() Then + Archivo.Delete() + End If + + + If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then + ErrorProceso = True + Alert("Error al mover Archivo", TipoMensaje.MsgError) + End If + + If Not ErrorProceso Then + If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}.{FileExtension}") Then + ErrorProceso = True + End If + End If + + + End If + + + End If + + + End If + + + + + + + If Not ErrorProceso Then + ObjAF.Commit() + ObjAF.Dispose() + + RegistraScript("$('#DVModalMantenimiento').modal('hide');") + Alert("Mantenimiento Guardado Correctamente.") + CargaMantenimento() + Else + ObjAF.RollBack() + ObjAF.Dispose() + End If + + End Sub + + Protected Sub LnkDescargaArcgivo_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim Archivo As String = GvRow.DataKey("Archivo") + Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") + + If InfArchivo.Exists Then + Response.Clear() + Response.AppendHeader("Content-Disposition", "attachment; filename=" + InfArchivo.Name) + Response.AppendHeader("Content-Length", InfArchivo.Length.ToString()) + Response.ContentType = "application/octet-stream" + Response.WriteFile(InfArchivo.FullName) + + Response.End() + End If + + + + End Sub + + Protected Sub GvMantenimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + Dim Archivo As String = e.Row.DataKey("Archivo") + Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") + + If InfArchivo.Exists Then + e.Row.FCLinkButton("LnkDescargaArcgivo").Visible = True + ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkDescargaArcgivo")) + End If + + End If + + End Sub + +#End Region + + +#Region "PLAGA ENFERMEDAD" + + + + Private Sub CargaPlagaEnfermedad() + + Dim ObjAF As New ClsAF + + If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvPlagaEnfermedad.DataSource = ObjAF.DtResultados + Else + GvPlagaEnfermedad.DataSource = Nothing + End If + + ObjAF.Dispose() + GvPlagaEnfermedad.DataBind() + + UpPlagaEnfermedad.Update() + + End Sub + + + Protected Sub LnkAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs) + + LblModalTituloPlagaEnfermedad.Text = "Agregar Plaga Enfermedad" + LnkModalAgregarProduccion.Text = "Agregar" + + CvePlagaEnfermedad = -1 + + TxtModalPlagaEnfermedadObservaciones.Text = "" + TxtModalPlagaEnfermedadFecha.Text = "" + + RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');") + + UpModalPlagaEnfermedad.Update() + End Sub + + Protected Sub LnkGvPlagaEnfermedadEdit_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero + + Dim Observaciones As String = GvRow.DataKey("Observaciones") + Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate + + + TxtModalPlagaEnfermedadObservaciones.Text = Observaciones + TxtModalPlagaEnfermedadFecha.Text = Fecha.ToString("dd/MM/yyyy") + + + LblModalTituloPlagaEnfermedad.Text = "Actualizar plaga enfermedad" + LnkModalAgregarPlagaEnfermedad.Text = "Actualizar" + + UpModalPlagaEnfermedad.Update() + + + RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');") + End Sub + + Protected Sub LnkGvPlagaEnfermedadRemove_Click(sender As Object, e As EventArgs) + + Dim ErrorProceso As Boolean = False + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero + + Dim ObjAF As New ClsAF + + If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + + ObjAF.Dispose() + + + If Not ErrorProceso Then + Alert("Plaga Enfermedad Eliminada Correctamente.") + CargaPlagaEnfermedad() + End If + + End Sub + + + + Protected Sub LnkModalAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs) + Dim ErrorProceso As Boolean = False + Dim ObjAF As New ClsAF + + If CvePlagaEnfermedad > 0 Then + If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + Else + If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + End If + + + + ObjAF.Dispose() + + If Not ErrorProceso Then + RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');") + Alert("Plaga Enfermedad guardada Correctamente.") + CargaPlagaEnfermedad() + End If + + End Sub + +#End Region + + + + End Class \ No newline at end of file diff --git a/Acumuladores/RepPolizasVirtuales.aspx b/Acumuladores/RepPolizasVirtuales.aspx index 12906ffc6..845677f19 100644 --- a/Acumuladores/RepPolizasVirtuales.aspx +++ b/Acumuladores/RepPolizasVirtuales.aspx @@ -44,10 +44,7 @@
- - - - + SubProyecto:
@@ -120,36 +117,44 @@
- + - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
diff --git a/Acumuladores/RepPolizasVirtuales.aspx.vb b/Acumuladores/RepPolizasVirtuales.aspx.vb index bcc51a9dd..4ce6c4895 100644 --- a/Acumuladores/RepPolizasVirtuales.aspx.vb +++ b/Acumuladores/RepPolizasVirtuales.aspx.vb @@ -3,8 +3,6 @@ Imports Extensiones Partial Class Acumuladores_RepPolizasVirtuales Inherits ClsPaginas - - Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then CargaCombos() @@ -15,7 +13,7 @@ Partial Class Acumuladores_RepPolizasVirtuales Private Sub CargaCombos() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto) - + txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString() End Sub @@ -47,9 +45,6 @@ Partial Class Acumuladores_RepPolizasVirtuales End Sub - - - Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) CargaDatos() End Sub diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index ad8c046c4..fd6191f40 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -47,6 +47,7 @@ Public Class ClsAF Public Property CveCompra As Integer Public Property ValorCompra As Double Public Property FechaCompra As Date + Public Property FechaBaja As Date Public Property CuentaInicial As Integer Public Property CveTipoActivoFijo As Integer Public Property TipoActivoFijo As String @@ -230,6 +231,7 @@ Public Class ClsAF Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero Me.Usuario = Data.Rows(0)("Usuario").ToString Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate End If Retorno = True Catch ex As Exception @@ -344,6 +346,9 @@ Public Class ClsAF Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero + Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate + + End If Retorno = True Catch ex As Exception @@ -397,7 +402,7 @@ Public Class ClsAF Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer, CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1, - Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Integer + Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_AF_ActivosFijosAdd") @@ -427,6 +432,7 @@ Public Class ClsAF .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja .Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue @@ -458,7 +464,7 @@ Public Class ClsAF CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1, - Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Boolean + Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AF_ActivosFijosUpdate") @@ -490,6 +496,7 @@ Public Class ClsAF .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja End With Try @@ -4514,6 +4521,339 @@ Public Class ClsAF #End Region +#Region " P R O D U C C C I Ó N " + + Public Function AddProduccion(CveActivoFijo As Integer, CveCultivoCuadroDetalle As Integer, Cantidad As Decimal, Fecha As Date, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_ProduccionAdd") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function UpdateProduccion(CveProduccion As Integer, CveActivoFijo As Integer, CveCultivoCuadroDetalle As Integer, Cantidad As Decimal, Fecha As Date, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_ProduccionUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveProduccion", SqlDbType.Int).Value = CveProduccion + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + + Public Function GetProduccion(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_ProduccionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function RemoveProduccion(CveProduccion As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_ProduccionRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProduccion", SqlDbType.Int).Value = CveProduccion + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + +#End Region + +#Region " M A N T E N I M I E N T O S " + + + Public Function AddMantenimientos(CveActivoFijo As Integer, Mantenimiento As String, Observaciones As String, Fecha As Date, CveUsuario As Integer, Archivo As String) As Integer + + Dim Retorno As Integer = -1 + + DataAdapter("PA_AF_MantenimientosAdd") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Mantenimiento", SqlDbType.VarChar).Value = Mantenimiento + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Archivo", SqlDbType.VarChar).Value = Archivo + .Add("@CveMantenimiento", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CveMantenimiento").Value.ToString.ToEntero + + Catch ex As Exception + OnError("Ocurrió un error al agregar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function UpdateMantenimientos(CveMantenimiento As Integer, CveActivoFijo As Integer, Mantenimiento As String, Observaciones As String, Fecha As Date, CveUsuario As Integer, Archivo As String) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MantenimientosUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveMantenimiento", SqlDbType.Int).Value = CveMantenimiento + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Mantenimiento", SqlDbType.VarChar).Value = Mantenimiento + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Archivo", SqlDbType.VarChar).Value = Archivo + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + + Public Function GetMantenimientos(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MantenimientosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar los mantenimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function RemoveMantenimientos(CveMantenimiento As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_MantenimientosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMantenimiento", SqlDbType.Int).Value = CveMantenimiento + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + + +#End Region + + + +#Region " PLAGAS ENFERMEDADES " + + + Public Function AddPlagaEnfermedad(CveActivoFijo As Integer, Observaciones As String, Fecha As Date, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_PlagaEnfermedadAdd") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function UpdatePlagaEnfermedad(CvePlagaEnfermedad As Integer, CveActivoFijo As Integer, Observaciones As String, Fecha As Date, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_PlagaEnfermedadUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CvePlagaEnfermedad", SqlDbType.Int).Value = CvePlagaEnfermedad + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + + Public Function GetPlagaEnfermedad(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_PlagaEnfermedadGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function RemovePlagaEnfermedad(CvePlagaEnfermedad As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_PlagaEnfermedadRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePlagaEnfermedad", SqlDbType.Int).Value = CvePlagaEnfermedad + .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + + +#End Region + + #Region " IDisposable Support " ' IDisposable diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 55ee851fb..d416a98bb 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -141,6 +141,7 @@ Public Class ClsBancos Public Property UsaLayoutGrupos As Boolean Public Property UsaTarjeta As Boolean + Public Property TieneTerminal As Boolean #End Region @@ -428,6 +429,7 @@ Public Class ClsBancos Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False) Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").ToString = "True", True, False) Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False) + Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False) End If @@ -462,7 +464,7 @@ Public Class ClsBancos Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String, - UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False) As Boolean + UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_BancosCuentasAdd") @@ -489,6 +491,7 @@ Public Class ClsBancos .Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta .Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos + .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal @@ -513,7 +516,7 @@ Public Class ClsBancos Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer, LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String, - UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False) As Boolean + UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_BancosCuentasUpdate") @@ -538,6 +541,7 @@ Public Class ClsBancos .Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout .Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta .Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos + .Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal End With diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb index cdad985da..b212c9403 100644 --- a/App_Code/ClsCRM.vb +++ b/App_Code/ClsCRM.vb @@ -130,7 +130,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoAdd") With SqlAdapter.SelectCommand.Parameters @@ -138,6 +140,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) @@ -148,7 +155,9 @@ Public Class ClsCRM Return Retorno End Function - Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer) As Boolean + Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer, + RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean, + RequierePS As Boolean, RequiereComision As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CRM_TipoProcesoUpdate") With SqlAdapter.SelectCommand.Parameters @@ -156,6 +165,11 @@ Public Class ClsCRM .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso + .Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion + .Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte + .Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento + .Add("@RequierePS", SqlDbType.Bit).Value = RequierePS + .Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e9826f77e..3a0ec3593 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -32,6 +32,8 @@ Public Class ClsClientes Public Property CveCliente As Integer Public Property Nombre As String + Public Property TipoPersona As Boolean + Public Property RegimenSociedad As String Public Property NombreComercial As String Public Property Direccion As String Public Property NoExt As String @@ -289,6 +291,8 @@ Public Class ClsClientes If Data.Rows.Count > 0 Then _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero _Nombre = Data.Rows(0)("Nombre").ToString + _TipoPersona = Boolean.Parse(Data.Rows(0)("TipoPersona").ToString) + _RegimenSociedad = Data.Rows(0)("RegimenSociedad").ToString _NombreComercial = Data.Rows(0)("NombreComercial").ToString _Codigo = Data.Rows(0)("Codigo").ToString _Direccion = Data.Rows(0)("Direccion").ToString @@ -576,7 +580,7 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0) As Boolean + Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -719,6 +723,12 @@ Public Class ClsClientes .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad + .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + + + + End With Try SqlAdapter.Fill(Data) @@ -766,7 +776,7 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", - Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0) As Boolean + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -925,6 +935,12 @@ Public Class ClsClientes .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad + .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + + + + End With Try SqlAdapter.Fill(Data) @@ -1467,7 +1483,7 @@ Public Class ClsClientes #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", - 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, Optional CveEmpresa As Integer = -1) As Integer + 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, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd") @@ -1486,6 +1502,7 @@ Public Class ClsClientes .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveEstado", SqlDbType.Int).Value = CveEstado @@ -1528,7 +1545,7 @@ Public Class ClsClientes 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", - 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 + 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, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate") @@ -1548,6 +1565,7 @@ Public Class ClsClientes .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveEstado", SqlDbType.Int).Value = CveEstado diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 97ce501d7..cbbcfb90e 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -6603,18 +6603,18 @@ Public Class ClsContPAQi #End Region #Region "M O V I M I E N T O S - A U X I L I A R E S - C A T A L O G O" - Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer) As Boolean + Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False - If Not FNC_Total() Then + If Not FNC_Total_Segmento() Then Return Retorno End If - If Not FNC_Cargos() Then + If Not FNC_Cargos_Segmento() Then Return Retorno End If - If Not FNC_Abonos() Then + If Not FNC_Abonos_Segmento() Then Return Retorno End If @@ -6659,12 +6659,12 @@ Public Class ClsContPAQi StrSQL.Append(" ) ") StrSQL.Append(" INSERT INTO #TEMP ") 'StrSQL.AppendLine(" -- SE LLENA LA TABLA TEMPORAL CON EL ARBOL DEL WITH CON JOINS DE CUENTAS SUPERIORES ") - StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda), 0) AS SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual + StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total_Segmento(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda,@IdSegNeg), 0) As SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual StrSQL.Append(" FROM (") - StrSQL.Append(" SELECT C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,") - StrSQL.Append(" ISNULL (dbo.FNC_Total(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda), 0) AS SaldoInicial,") - StrSQL.Append(" ISNULL (dbo.FNC_Cargos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Cargos,") - StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Abonos,") + StrSQL.Append(" Select C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,") + StrSQL.Append(" ISNULL (dbo.FNC_Total_Segmento(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda,@IdSegNeg), 0) AS SaldoInicial,") + StrSQL.Append(" ISNULL (dbo.FNC_Cargos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Cargos,") + StrSQL.Append(" ISNULL (dbo.FNC_Abonos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Abonos,") StrSQL.Append(" Level as Nivel,") StrSQL.Append(" CASE WHEN ISNUMERIC (C.Codigo) = 1 THEN FORMAT (CAST (C.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE C.Codigo END AS Codigo,") StrSQL.Append(" CASE WHEN ISNUMERIC (CT.Codigo) = 1 THEN FORMAT (CAST (CT.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE CT.Codigo END AS CodigoSup, Ct.Nombre as Sup,") @@ -6743,12 +6743,18 @@ Public Class ClsContPAQi StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND MP.Fecha < CAST('0001-01-01' AS DATE)") StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") + StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ") + + StrSQL.Append(" UNION") StrSQL.AppendFormat(" SELECT T.*, MP.Concepto, MP.Fecha, TP.Nombre AS TipoPoliza, MP.Folio, MP.Id AS IdMovimientoPoliza, MP.Referencia, CASE WHEN MP.TipoMovto = 0 THEN MP.{0} ELSE 0 END, CASE WHEN MP.TipoMovto = 1 THEN MP.{0} ELSE 0 END, MP.IdPoliza, P.Concepto AS ConceptoPadre", If(CveMoneda = 1, "Importe", "ImporteME")) StrSQL.Append(" FROM #TEMP T") StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND CAST(MP.Fecha AS DATE) BETWEEN @FechaI AND @FechaF") StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") + StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ") + + StrSQL.Append(" ) AS T") StrSQL.Append(" ) TT") 'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS") @@ -6777,6 +6783,7 @@ Public Class ClsContPAQi .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -11035,7 +11042,7 @@ Public Class ClsContPAQi StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") - StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" END; ") @@ -11104,7 +11111,7 @@ Public Class ClsContPAQi StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") - StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" END; ") @@ -11198,6 +11205,233 @@ Public Class ClsContPAQi #End Region +#Region "Funciones con Segmento" + + + Public Function FNC_Total_Segmento() As Boolean + + Dim Retorno = False + StrSQL.Clear() + StrSQL.Append(" IF OBJECT_ID ('FNC_Total_Segmento') IS NOT NULL DROP FUNCTION FNC_Total_Segmento") + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + + StrSQL.Clear() + StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Total_Segmento] ") + StrSQL.Append(" ( ") + StrSQL.Append(" @IdCtaSup INT, ") + StrSQL.Append(" @FechaI DATE, ") + StrSQL.Append(" @FechaF DATE, ") + StrSQL.Append(" @CveMoneda INT = 1, ") + StrSQL.Append(" @IdSegNeg INT =-1 ") + StrSQL.Append(" ) ") + StrSQL.Append(" RETURNS FLOAT ") + StrSQL.Append(" AS ") + StrSQL.Append(" BEGIN ") + StrSQL.Append(" ") + StrSQL.Append(" DECLARE ") + StrSQL.Append(" @Total FLOAT, ") + StrSQL.Append(" @TipoCuenta VARCHAR(1), ") + StrSQL.Append(" @FechaFF DATE; ") + StrSQL.Append(" ") + StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ") + StrSQL.Append(" ") + StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ") + StrSQL.Append(" ( ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ") + StrSQL.Append(" ") + StrSQL.Append(" UNION ALL ") + StrSQL.Append(" ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" ) ") + StrSQL.Append(" SELECT @Total = SUM (CASE ") + StrSQL.Append(" WHEN @TipoCuenta IN ('A', 'B', 'E', 'G') THEN CASE WHEN p.TipoMovto = 1 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ") + StrSQL.Append(" WHEN @TipoCuenta IN ('B', 'D', 'F', 'H', 'C') THEN CASE WHEN p.TipoMovto = 0 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ") + StrSQL.Append(" ELSE 0 ") + StrSQL.Append(" END ") + StrSQL.Append(" ) ") + StrSQL.Append(" FROM Estructura e ") + StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") + StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") + StrSQL.Append(" RETURN @Total; ") + StrSQL.Append(" END; ") + + + + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al crear la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function FNC_Cargos_Segmento() As Boolean + + Dim Retorno = False + StrSQL.Clear() + StrSQL.Append(" IF OBJECT_ID ('FNC_Cargos_Segmento') IS NOT NULL DROP FUNCTION FNC_Cargos_Segmento") + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + + StrSQL.Clear() + StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Cargos_Segmento] ") + StrSQL.Append(" ( ") + StrSQL.Append(" @IdCtaSup INT, ") + StrSQL.Append(" @FechaI DATE, ") + StrSQL.Append(" @FechaF DATE, ") + StrSQL.Append(" @CveMoneda INT = 1, ") + StrSQL.Append(" @IdSegNeg INT =-1 ") + StrSQL.Append(" ) ") + StrSQL.Append(" RETURNS FLOAT ") + StrSQL.Append(" AS ") + StrSQL.Append(" BEGIN ") + StrSQL.Append(" ") + StrSQL.Append(" DECLARE @Total FLOAT; ") + StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ") + StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ") + StrSQL.Append(" ") + StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ") + StrSQL.Append(" ( ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ") + StrSQL.Append(" ") + StrSQL.Append(" UNION ALL ") + StrSQL.Append(" ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" ) ") + StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 0 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ") + StrSQL.Append(" FROM Estructura e ") + StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") + StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") + StrSQL.Append(" RETURN @Total; ") + StrSQL.Append(" END; ") + + + + + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al crear la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function FNC_Abonos_Segmento() As Boolean + + Dim Retorno = False + StrSQL.Clear() + StrSQL.Append(" IF OBJECT_ID ('FNC_Abonos_Segmento') IS NOT NULL DROP FUNCTION FNC_Abonos_Segmento") + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + + StrSQL.Clear() + StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Abonos_Segmento] ") + StrSQL.Append(" ( ") + StrSQL.Append(" @IdCtaSup INT, ") + StrSQL.Append(" @FechaI DATE, ") + StrSQL.Append(" @FechaF DATETIME, ") + StrSQL.Append(" @CveMoneda INT = 1 , ") + StrSQL.Append(" @IdSegNeg INT =-1 ") + StrSQL.Append(" ) ") + StrSQL.Append(" RETURNS FLOAT ") + StrSQL.Append(" AS ") + StrSQL.Append(" BEGIN ") + StrSQL.Append(" ") + StrSQL.Append(" DECLARE @Total FLOAT; ") + StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ") + StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ") + StrSQL.Append(" ") + StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ") + StrSQL.Append(" ( ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ") + StrSQL.Append(" ") + StrSQL.Append(" UNION ALL ") + StrSQL.Append(" ") + StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ") + StrSQL.Append(" FROM Asociaciones a ") + StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ") + StrSQL.Append(" ) ") + StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 1 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ") + StrSQL.Append(" FROM Estructura e ") + StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") + StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") + StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") + StrSQL.Append(" RETURN @Total; ") + StrSQL.Append(" END; ") + + + + + + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + Try + SqlAdapter.SelectCommand.ExecuteNonQuery() + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al crear la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + +#End Region + + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index d5cf5e840..6b6fce855 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -992,6 +992,9 @@ Public Class ClsContabilidad ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then + Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) + OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If ' @@ -3814,6 +3817,30 @@ Public Class ClsContabilidad Return Retorno End Function + + + Public Function GetFlujoEfectivo2(FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_RepFlujoEfectivo2") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@TipoReporte", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el Estado de Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -5785,7 +5812,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean + Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet") @@ -5794,6 +5821,7 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Opcion", SqlDbType.Int).Value = Opcion + .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e5d8cb414..2d7da6a41 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -869,7 +869,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean + Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer, Optional Tipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosPorPersonalGet") @@ -879,6 +879,7 @@ Public Class ClsInventarios .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Tipo", SqlDbType.Int).Value = Tipo End With Try SqlAdapter.Fill(Data) @@ -1286,7 +1287,8 @@ Public Class ClsInventarios Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha, Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, - Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1) As Boolean + Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1, + Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleAdd") @@ -1313,6 +1315,7 @@ Public Class ClsInventarios .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@EsInterno", SqlDbType.Int).Value = EsInterno .Add("@CveVentaDetalleRemision", SqlDbType.Int).Value = CveVentaDetalleRemision + .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -1348,7 +1351,7 @@ Public Class ClsInventarios Return Retorno End Function Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", - Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean + Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleUpdate") @@ -1365,6 +1368,7 @@ Public Class ClsInventarios .Add("@Serie", SqlDbType.VarChar).Value = Serie .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 90bb8784f..156eaff82 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4515,11 +4515,7 @@ Public Class ClsPaginas PaginaDict.Add("/AF/CatCombustibles.aspx".ToUpper(), -1) PaginaDict.Add("/AF/CatCargasCombustible.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepFlotillas.aspx".ToUpper(), -1) - PaginaDict.Add("/AF/RepPlacas.aspx".ToUpper(), -1) - PaginaDict.Add("/AF/RepIncidentes.aspx".ToUpper(), -1) - PaginaDict.Add("/AF/RepPolizaSeguro.aspx".ToUpper(), -1) - PaginaDict.Add("/AF/RepLicencias.aspx".ToUpper(), -1) - PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1) + PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656) PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251) @@ -4834,6 +4830,8 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714) PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677) PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752) + PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 783) + #End Region 'CONTABILIDAD2 diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 225d0ba99..4363a44e2 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -246,7 +246,7 @@ Public Class ClsProductosServicios CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString - 'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString + SATDescripcion = Data.Rows(0)("SATDescripcion").ToString Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo2 = Data.Rows(0)("Codigo2").ToString diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ba5cd008c..3668afa90 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1925,7 +1925,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1) As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2011,6 +2011,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal + .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado + @@ -2052,7 +2054,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, - Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1) As Boolean + Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, + Optional CveEmpresaAsignado As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2141,6 +2144,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal + .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado + diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index c46c6b549..290ab5615 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -6862,7 +6862,7 @@ Namespace Modelos Public Property TiempoEntrega As String = "" Public Property Vigencia As Date Public Property TipoEstatus As Integer - Public Property CveCondicionEntrega As Integer + Public Property CveCondicionEntrega As Integer = -1 Public Property CondicionEntrega As String = "" Public Property TipoRelacion As String diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fc320f55f..2499c1de1 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3425,10 +3425,11 @@ Public Class Timbrado swmili = sw.ElapsedMilliseconds sw.Start() + Me.UUID = FolioFiscal If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then 'Actualiza Estatus Factura - If Ventas.CveVenta > 0 Then + If Ventas.CveVenta > 0 Then Using ObjVentas As New ClsVentas() diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 654f5ae7f..4f8d15dc4 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -124,6 +124,8 @@ Public Class Timbres Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString + Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString + Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero FechaSalida = drT("FechaEntrega").ToString.ToDateTime @@ -182,18 +184,6 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) End If - - If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) - End If - - If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) - End If - - Dim DomOrigen As CFDICartaPorteDomicilio = Nothing DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, .Colonia = drT("DirOriClaveSATColonia").ToString, @@ -252,7 +242,7 @@ Public Class Timbres 'concepto único Dim concepto As New CFDIConceptos With {.Cantidad = 1, - .Descripcion = "Flete", + .Descripcion = "Traslado", .ValorUnitario = 0, .Importe = 0, .Descuento = 0, @@ -283,7 +273,7 @@ Public Class Timbres .ClaveUnidad = drr("SATClaveUM").ToString, .Unidad = drr("UM").ToString, .Dimensiones = drr("Dimensiones").ToString, - .PesoenKg = drr("PesoKg").ToString.ToDecimal, + .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""), .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString, .Embalaje = drr("ClaveEmbalaje").ToString, @@ -294,7 +284,7 @@ Public Class Timbres .UUIDComercioExt = "" } - Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} + Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} conceptoCarta.DetalleMercancia = DetalleMercancia Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx index d2a0f9b05..dc51da521 100644 --- a/Bancos/CuentasBancariasDetalle.aspx +++ b/Bancos/CuentasBancariasDetalle.aspx @@ -95,6 +95,11 @@ Layout Grupos: + + + Tiene Terminal: + + Convenio: diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index 24f611f58..ddfc4d03c 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -183,7 +183,9 @@ Partial Class Bancos_CuentasBancariasDetalle TxtConvenio.Text = ObjCuentasBancariasDetalle.ConvenioPagoElectronico.ToString ChkLayout.Checked = ObjCuentasBancariasDetalle.UsaLayout ChkLayoutGrupos.Checked = ObjCuentasBancariasDetalle.UsaLayoutGrupos - ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta + ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta + + ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal ChkUsaTarjeta_CheckedChanged(Nothing, Nothing) @@ -265,7 +267,8 @@ Partial Class Bancos_CuentasBancariasDetalle If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, - DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then + DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, + TieneTerminal:=ChkTieneTerminal.Checked) Then ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta Else ErrorUsuarios = True @@ -296,7 +299,9 @@ Partial Class Bancos_CuentasBancariasDetalle End If Else - If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then + If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, + TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, + ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then 'CargaDatos() GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index c5b86d7a1..a32602080 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -240,7 +240,8 @@
-
+ +

-
+ +

- + + @@ -558,7 +561,8 @@
-
+ + @@ -610,7 +614,8 @@
- + +
@@ -659,7 +664,8 @@
- + +
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index df81c70c2..75982a281 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -126,6 +126,9 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + + HplProveedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + HplProveedorLiga.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0 @@ -165,6 +168,8 @@ Partial Class Bancos_FluctuacionCambiaria HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 + HplProveedorAntLiga.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 + HplProveedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") @@ -200,6 +205,9 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + + HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 @@ -235,6 +243,8 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + HplClientesAntLiga.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0 + HplClientesAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0 BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0 @@ -266,6 +276,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + + HplAcreedorLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedores.DataSource = ObjBancos.DtResultados LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else @@ -283,6 +296,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 + + HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedoresAnt.DataSource = ObjBancos.DtResultados LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 0f37de0bb..03f75a6a1 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1884,7 +1884,7 @@ Partial Class Bancos_IE If Tipo.Length > 0 Then DdlTipoTransaccion.Items.Clear() - DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND EstatusTexto = 'Activo' ") End If diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index aac7ecfc0..fb07433fd 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -244,8 +244,22 @@ -
- +
+
+
+ +
+
+
SubProyecto +
+ +
+ + + +
+
+
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 9ec719505..e1610060d 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -140,14 +140,19 @@ public partial class Bancos_PagoAcreedor : ClsPaginas DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyectoPago.DataBind(); + + DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); + } #region"INFORMACION GENERAL" protected void CargaTipoTransaccion() { - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'"); - DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'"); + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1"); + DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 "); DdlTipoTransaccion.DataBind(); DdlTipoTransanccionPrestamo.DataBind(); @@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } ImporteMN = Importe; - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de diferencia cambiaria"; } @@ -457,7 +462,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } else { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -466,7 +471,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (ImporteComisionMN > 0) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; break; @@ -492,14 +497,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos"; } if (CveMonedaPago != 1 && UsaComplementaria) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de bancos complementaria"; } @@ -509,14 +514,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria); if (Dif < 0) { - tCveConceptoOtIngresos = 211; TipoMovtoOt = false; + tCveConceptoOtIngresos = 65; TipoMovtoOt = false; } else { - tCveConceptoOtIngresos = 78; TipoMovtoOt = true; + tCveConceptoOtIngresos = 64; TipoMovtoOt = true; } - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de ajuste en redondeo"; } diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index abd9ee76f..382ffee0f 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -385,7 +385,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas } } - // DEUDORES - DEUDORES COMPLEMENTARIA + // DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0) { // DEUDOR COMPLEMENTARIA @@ -403,7 +403,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas else { // DEUDOR - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, , -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de deudor"; } diff --git a/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll index c9badec25..8adb6bab4 100644 Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ diff --git a/Bin/AjaxControlToolkit.StaticResources.dll.refresh b/Bin/AjaxControlToolkit.StaticResources.dll.refresh new file mode 100644 index 000000000..b3cf24911 Binary files /dev/null and b/Bin/AjaxControlToolkit.StaticResources.dll.refresh differ diff --git a/Bin/AjaxControlToolkit.dll.refresh b/Bin/AjaxControlToolkit.dll.refresh new file mode 100644 index 000000000..77c4b3e42 --- /dev/null +++ b/Bin/AjaxControlToolkit.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\AjaxControlToolkit.15.1.4.0\lib\net40\AjaxControlToolkit.dll \ No newline at end of file diff --git a/Bin/Antlr3.Runtime.dll.refresh b/Bin/Antlr3.Runtime.dll.refresh new file mode 100644 index 000000000..38d3e5b03 --- /dev/null +++ b/Bin/Antlr3.Runtime.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Antlr.3.4.1.9004\lib\Antlr3.Runtime.dll \ No newline at end of file diff --git a/Bin/BarcodeStandard.dll.refresh b/Bin/BarcodeStandard.dll.refresh new file mode 100644 index 000000000..a4e749e42 Binary files /dev/null and b/Bin/BarcodeStandard.dll.refresh differ diff --git a/Bin/Bin.rar b/Bin/Bin.rar new file mode 100644 index 000000000..5d8159013 Binary files /dev/null and b/Bin/Bin.rar differ diff --git a/Bin/Bin_20220223.rar b/Bin/Bin_20220223.rar new file mode 100644 index 000000000..1d4ea77ab Binary files /dev/null and b/Bin/Bin_20220223.rar differ diff --git a/Bin/ClosedXML.dll.refresh b/Bin/ClosedXML.dll.refresh new file mode 100644 index 000000000..77ab5998d Binary files /dev/null and b/Bin/ClosedXML.dll.refresh differ diff --git a/Bin/DocumentFormat.OpenXml.dll.refresh b/Bin/DocumentFormat.OpenXml.dll.refresh new file mode 100644 index 000000000..5fd0dd7fd --- /dev/null +++ b/Bin/DocumentFormat.OpenXml.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll \ No newline at end of file diff --git a/Bin/ExcelNumberFormat.dll.refresh b/Bin/ExcelNumberFormat.dll.refresh new file mode 100644 index 000000000..0aa2b8948 Binary files /dev/null and b/Bin/ExcelNumberFormat.dll.refresh differ diff --git a/Bin/Microsoft.AspNet.SignalR.Core.dll.refresh b/Bin/Microsoft.AspNet.SignalR.Core.dll.refresh new file mode 100644 index 000000000..a9958cd7f --- /dev/null +++ b/Bin/Microsoft.AspNet.SignalR.Core.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.SignalR.Core.2.4.1\lib\net45\Microsoft.AspNet.SignalR.Core.dll \ No newline at end of file diff --git a/Bin/Microsoft.AspNet.SignalR.SystemWeb.dll.refresh b/Bin/Microsoft.AspNet.SignalR.SystemWeb.dll.refresh new file mode 100644 index 000000000..2f0774e9f --- /dev/null +++ b/Bin/Microsoft.AspNet.SignalR.SystemWeb.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.SignalR.SystemWeb.2.4.1\lib\net45\Microsoft.AspNet.SignalR.SystemWeb.dll \ No newline at end of file diff --git a/Bin/Microsoft.Bcl.AsyncInterfaces.dll.refresh b/Bin/Microsoft.Bcl.AsyncInterfaces.dll.refresh new file mode 100644 index 000000000..7ee9c9d22 --- /dev/null +++ b/Bin/Microsoft.Bcl.AsyncInterfaces.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Bcl.AsyncInterfaces.5.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll \ No newline at end of file diff --git a/Bin/Microsoft.Bcl.HashCode.dll.refresh b/Bin/Microsoft.Bcl.HashCode.dll.refresh new file mode 100644 index 000000000..59bf6915c Binary files /dev/null and b/Bin/Microsoft.Bcl.HashCode.dll.refresh differ diff --git a/Bin/Microsoft.EntityFrameworkCore.Abstractions.dll.refresh b/Bin/Microsoft.EntityFrameworkCore.Abstractions.dll.refresh new file mode 100644 index 000000000..6f8e0c413 Binary files /dev/null and b/Bin/Microsoft.EntityFrameworkCore.Abstractions.dll.refresh differ diff --git a/Bin/Microsoft.EntityFrameworkCore.dll.refresh b/Bin/Microsoft.EntityFrameworkCore.dll.refresh new file mode 100644 index 000000000..4c1d7daed Binary files /dev/null and b/Bin/Microsoft.EntityFrameworkCore.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Caching.Abstractions.dll.refresh b/Bin/Microsoft.Extensions.Caching.Abstractions.dll.refresh new file mode 100644 index 000000000..45fd7fb69 Binary files /dev/null and b/Bin/Microsoft.Extensions.Caching.Abstractions.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Caching.Memory.dll.refresh b/Bin/Microsoft.Extensions.Caching.Memory.dll.refresh new file mode 100644 index 000000000..2eb00ecef Binary files /dev/null and b/Bin/Microsoft.Extensions.Caching.Memory.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Configuration.Abstractions.dll.refresh b/Bin/Microsoft.Extensions.Configuration.Abstractions.dll.refresh new file mode 100644 index 000000000..9e0d5a5d2 Binary files /dev/null and b/Bin/Microsoft.Extensions.Configuration.Abstractions.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Configuration.Binder.dll.refresh b/Bin/Microsoft.Extensions.Configuration.Binder.dll.refresh new file mode 100644 index 000000000..7685c4f8a Binary files /dev/null and b/Bin/Microsoft.Extensions.Configuration.Binder.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Configuration.dll.refresh b/Bin/Microsoft.Extensions.Configuration.dll.refresh new file mode 100644 index 000000000..fc07ce8ca Binary files /dev/null and b/Bin/Microsoft.Extensions.Configuration.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.DependencyInjection.Abstractions.dll.refresh b/Bin/Microsoft.Extensions.DependencyInjection.Abstractions.dll.refresh new file mode 100644 index 000000000..fc50476ed Binary files /dev/null and b/Bin/Microsoft.Extensions.DependencyInjection.Abstractions.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.DependencyInjection.dll.refresh b/Bin/Microsoft.Extensions.DependencyInjection.dll.refresh new file mode 100644 index 000000000..13cc264a4 Binary files /dev/null and b/Bin/Microsoft.Extensions.DependencyInjection.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Logging.Abstractions.dll.refresh b/Bin/Microsoft.Extensions.Logging.Abstractions.dll.refresh new file mode 100644 index 000000000..ded6a5d13 Binary files /dev/null and b/Bin/Microsoft.Extensions.Logging.Abstractions.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Logging.dll.refresh b/Bin/Microsoft.Extensions.Logging.dll.refresh new file mode 100644 index 000000000..33dd44698 Binary files /dev/null and b/Bin/Microsoft.Extensions.Logging.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Options.dll.refresh b/Bin/Microsoft.Extensions.Options.dll.refresh new file mode 100644 index 000000000..12e55441f Binary files /dev/null and b/Bin/Microsoft.Extensions.Options.dll.refresh differ diff --git a/Bin/Microsoft.Extensions.Primitives.dll.refresh b/Bin/Microsoft.Extensions.Primitives.dll.refresh new file mode 100644 index 000000000..dfc1297b3 Binary files /dev/null and b/Bin/Microsoft.Extensions.Primitives.dll.refresh differ diff --git a/Bin/Microsoft.Owin.Host.SystemWeb.dll.refresh b/Bin/Microsoft.Owin.Host.SystemWeb.dll.refresh new file mode 100644 index 000000000..24e891aba --- /dev/null +++ b/Bin/Microsoft.Owin.Host.SystemWeb.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Owin.Host.SystemWeb.3.0.1\lib\net45\Microsoft.Owin.Host.SystemWeb.dll \ No newline at end of file diff --git a/Bin/Microsoft.Owin.Security.OAuth.dll.refresh b/Bin/Microsoft.Owin.Security.OAuth.dll.refresh new file mode 100644 index 000000000..8367f8120 --- /dev/null +++ b/Bin/Microsoft.Owin.Security.OAuth.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Owin.Security.OAuth.4.1.0\lib\net45\Microsoft.Owin.Security.OAuth.dll \ No newline at end of file diff --git a/Bin/Microsoft.Owin.Security.dll.refresh b/Bin/Microsoft.Owin.Security.dll.refresh new file mode 100644 index 000000000..ebc4a2f6a Binary files /dev/null and b/Bin/Microsoft.Owin.Security.dll.refresh differ diff --git a/Bin/Microsoft.Owin.dll.refresh b/Bin/Microsoft.Owin.dll.refresh new file mode 100644 index 000000000..0c642ed25 Binary files /dev/null and b/Bin/Microsoft.Owin.dll.refresh differ diff --git a/Bin/Microsoft.ReportViewer.Common.dll.refresh b/Bin/Microsoft.ReportViewer.Common.dll.refresh new file mode 100644 index 000000000..f65d83594 --- /dev/null +++ b/Bin/Microsoft.ReportViewer.Common.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.Common.dll \ No newline at end of file diff --git a/Bin/Microsoft.ReportViewer.Design.dll.refresh b/Bin/Microsoft.ReportViewer.Design.dll.refresh new file mode 100644 index 000000000..5d3c3a60d Binary files /dev/null and b/Bin/Microsoft.ReportViewer.Design.dll.refresh differ diff --git a/Bin/Microsoft.ReportViewer.ProcessingObjectModel.DLL.refresh b/Bin/Microsoft.ReportViewer.ProcessingObjectModel.DLL.refresh new file mode 100644 index 000000000..ba5726ab9 --- /dev/null +++ b/Bin/Microsoft.ReportViewer.ProcessingObjectModel.DLL.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.ProcessingObjectModel.DLL \ No newline at end of file diff --git a/Bin/Microsoft.ReportViewer.WebDesign.dll.refresh b/Bin/Microsoft.ReportViewer.WebDesign.dll.refresh new file mode 100644 index 000000000..8f52dc67c Binary files /dev/null and b/Bin/Microsoft.ReportViewer.WebDesign.dll.refresh differ diff --git a/Bin/Microsoft.ReportViewer.WebForms.DLL.refresh b/Bin/Microsoft.ReportViewer.WebForms.DLL.refresh new file mode 100644 index 000000000..84ff5c799 --- /dev/null +++ b/Bin/Microsoft.ReportViewer.WebForms.DLL.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.WebForms.DLL \ No newline at end of file diff --git a/Bin/Microsoft.SqlServer.Types.dll.refresh b/Bin/Microsoft.SqlServer.Types.dll.refresh new file mode 100644 index 000000000..70e0e613c --- /dev/null +++ b/Bin/Microsoft.SqlServer.Types.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.SqlServer.Types.14.0.1016.290\lib\net40\Microsoft.SqlServer.Types.dll \ No newline at end of file diff --git a/Bin/Microsoft.Threading.Tasks.Extensions.Desktop.dll.refresh b/Bin/Microsoft.Threading.Tasks.Extensions.Desktop.dll.refresh new file mode 100644 index 000000000..f6ac753bc Binary files /dev/null and b/Bin/Microsoft.Threading.Tasks.Extensions.Desktop.dll.refresh differ diff --git a/Bin/Microsoft.Threading.Tasks.Extensions.dll.refresh b/Bin/Microsoft.Threading.Tasks.Extensions.dll.refresh new file mode 100644 index 000000000..b98a3119d Binary files /dev/null and b/Bin/Microsoft.Threading.Tasks.Extensions.dll.refresh differ diff --git a/Bin/Microsoft.Threading.Tasks.dll.refresh b/Bin/Microsoft.Threading.Tasks.dll.refresh new file mode 100644 index 000000000..9b20e6064 Binary files /dev/null and b/Bin/Microsoft.Threading.Tasks.dll.refresh differ diff --git a/Bin/Microsoft.Web.Infrastructure.dll.refresh b/Bin/Microsoft.Web.Infrastructure.dll.refresh new file mode 100644 index 000000000..0f05d5223 --- /dev/null +++ b/Bin/Microsoft.Web.Infrastructure.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Web.Infrastructure.1.0.0.0\lib\net40\Microsoft.Web.Infrastructure.dll \ No newline at end of file diff --git a/Bin/Microsoft.Web.XmlTransform.dll.refresh b/Bin/Microsoft.Web.XmlTransform.dll.refresh new file mode 100644 index 000000000..b2ab5df52 --- /dev/null +++ b/Bin/Microsoft.Web.XmlTransform.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Web.Xdt.1.0.0\lib\net40\Microsoft.Web.XmlTransform.dll \ No newline at end of file diff --git a/Bin/MoreLinq.dll.refresh b/Bin/MoreLinq.dll.refresh new file mode 100644 index 000000000..2c2b59e5e Binary files /dev/null and b/Bin/MoreLinq.dll.refresh differ diff --git a/Bin/Newtonsoft.Json.dll.refresh b/Bin/Newtonsoft.Json.dll.refresh new file mode 100644 index 000000000..7ea2fc3cc Binary files /dev/null and b/Bin/Newtonsoft.Json.dll.refresh differ diff --git a/Bin/NuGet.Core.dll.refresh b/Bin/NuGet.Core.dll.refresh new file mode 100644 index 000000000..8b4724d5f --- /dev/null +++ b/Bin/NuGet.Core.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\NuGet.Core.2.8.0\lib\net40-Client\NuGet.Core.dll \ No newline at end of file diff --git a/Bin/Owin.dll.refresh b/Bin/Owin.dll.refresh new file mode 100644 index 000000000..5781f891e --- /dev/null +++ b/Bin/Owin.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Owin.1.0\lib\net40\Owin.dll \ No newline at end of file diff --git a/Bin/StackExchange.Redis.StrongName.dll.refresh b/Bin/StackExchange.Redis.StrongName.dll.refresh new file mode 100644 index 000000000..69e4a7844 Binary files /dev/null and b/Bin/StackExchange.Redis.StrongName.dll.refresh differ diff --git a/Bin/System.Buffers.dll.refresh b/Bin/System.Buffers.dll.refresh new file mode 100644 index 000000000..9e47b925a --- /dev/null +++ b/Bin/System.Buffers.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll \ No newline at end of file diff --git a/Bin/System.Collections.Immutable.dll.refresh b/Bin/System.Collections.Immutable.dll.refresh new file mode 100644 index 000000000..fe7092133 --- /dev/null +++ b/Bin/System.Collections.Immutable.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Collections.Immutable.1.7.1\lib\net461\System.Collections.Immutable.dll \ No newline at end of file diff --git a/Bin/System.ComponentModel.Annotations.dll.refresh b/Bin/System.ComponentModel.Annotations.dll.refresh new file mode 100644 index 000000000..a5268168b --- /dev/null +++ b/Bin/System.ComponentModel.Annotations.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.ComponentModel.Annotations.4.7.0\lib\net461\System.ComponentModel.Annotations.dll \ No newline at end of file diff --git a/Bin/System.Data.SqlClient.dll.refresh b/Bin/System.Data.SqlClient.dll.refresh new file mode 100644 index 000000000..98c0c6373 Binary files /dev/null and b/Bin/System.Data.SqlClient.dll.refresh differ diff --git a/Bin/System.Diagnostics.DiagnosticSource.dll.refresh b/Bin/System.Diagnostics.DiagnosticSource.dll.refresh new file mode 100644 index 000000000..2ee9bbe23 --- /dev/null +++ b/Bin/System.Diagnostics.DiagnosticSource.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Diagnostics.DiagnosticSource.4.7.1\lib\net46\System.Diagnostics.DiagnosticSource.dll \ No newline at end of file diff --git a/Bin/System.IO.FileSystem.Primitives.dll.refresh b/Bin/System.IO.FileSystem.Primitives.dll.refresh new file mode 100644 index 000000000..92490d347 Binary files /dev/null and b/Bin/System.IO.FileSystem.Primitives.dll.refresh differ diff --git a/Bin/System.Memory.dll.refresh b/Bin/System.Memory.dll.refresh new file mode 100644 index 000000000..9dd2ab1f6 --- /dev/null +++ b/Bin/System.Memory.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll \ No newline at end of file diff --git a/Bin/System.Numerics.Vectors.dll.refresh b/Bin/System.Numerics.Vectors.dll.refresh new file mode 100644 index 000000000..83102c12f --- /dev/null +++ b/Bin/System.Numerics.Vectors.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll \ No newline at end of file diff --git a/Bin/System.Runtime.CompilerServices.Unsafe.dll.refresh b/Bin/System.Runtime.CompilerServices.Unsafe.dll.refresh new file mode 100644 index 000000000..017b2a2b7 --- /dev/null +++ b/Bin/System.Runtime.CompilerServices.Unsafe.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Runtime.CompilerServices.Unsafe.5.0.0\lib\net45\System.Runtime.CompilerServices.Unsafe.dll \ No newline at end of file diff --git a/Bin/System.Text.Json.dll.refresh b/Bin/System.Text.Json.dll.refresh new file mode 100644 index 000000000..ac4c7142e --- /dev/null +++ b/Bin/System.Text.Json.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Text.Json.5.0.2\lib\net461\System.Text.Json.dll \ No newline at end of file diff --git a/Bin/System.Threading.Tasks.Extensions.dll.refresh b/Bin/System.Threading.Tasks.Extensions.dll.refresh new file mode 100644 index 000000000..3bde29d1b --- /dev/null +++ b/Bin/System.Threading.Tasks.Extensions.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll \ No newline at end of file diff --git a/Bin/System.ValueTuple.dll.refresh b/Bin/System.ValueTuple.dll.refresh new file mode 100644 index 000000000..fa313a698 --- /dev/null +++ b/Bin/System.ValueTuple.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll \ No newline at end of file diff --git a/Bin/System.Web.Optimization.dll.refresh b/Bin/System.Web.Optimization.dll.refresh new file mode 100644 index 000000000..7159da811 --- /dev/null +++ b/Bin/System.Web.Optimization.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.Web.Optimization.1.1.3\lib\net40\System.Web.Optimization.dll \ No newline at end of file diff --git a/Bin/WebGrease.dll.refresh b/Bin/WebGrease.dll.refresh new file mode 100644 index 000000000..3eda72e78 --- /dev/null +++ b/Bin/WebGrease.dll.refresh @@ -0,0 +1 @@ +C:\Users\Caudillo\source\repos\localhost_85\packages\WebGrease.1.6.0\lib\WebGrease.dll \ No newline at end of file diff --git a/Bin/log4net.dll.refresh b/Bin/log4net.dll.refresh new file mode 100644 index 000000000..8c31352c2 Binary files /dev/null and b/Bin/log4net.dll.refresh differ diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index bb3e9389d..8bc859a44 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -410,7 +410,7 @@
-
+
@@ -441,7 +441,7 @@
-
+
@@ -449,13 +449,13 @@
-
+
<%----%>
-
+
<%----%> @@ -463,7 +463,7 @@
-
+
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 6f7005b92..8ab7461d7 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -319,6 +319,19 @@ public partial class CRM_Acercamiento : ClsPaginas { LblEncabezadoAcercamiento.Text = String.Format("{0}: {1}", objAcercamiento.Result[0].TipoProceso.ToUpper(), objAcercamiento.Result[0].NombreAcercamiento.ToUpper()); CveTipoProceso = objAcercamiento.Result[0].CveTipoProceso.ToEntero(); + + RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, CveTipoProceso); + var ObjTipoProceso = cRMService.GetTipoProcesoCRM(tipoProceso); + var responsetipoProceso = ObjTipoProceso.Result.FirstOrDefault(); + if (responsetipoProceso != null) + { + DivComision.Visible = responsetipoProceso.RequiereComision; + DivMedioCaptacion.Visible = responsetipoProceso.RequiereMedioCaptacion; + DivImporte.Visible = responsetipoProceso.RequiereImporte; + DivProbabilidadAcercamiento.Visible = responsetipoProceso.RequiereProbabilidadAcercamiento; + DivPS.Visible = responsetipoProceso.RequierePS; + } + //SECCION DATOS DEL ACERCAMIENTO TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento; TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion; diff --git a/CRM/CatTipoProceso.aspx b/CRM/CatTipoProceso.aspx index 221b3ae1d..956346963 100644 --- a/CRM/CatTipoProceso.aspx +++ b/CRM/CatTipoProceso.aspx @@ -23,8 +23,8 @@ - - + + @@ -37,7 +37,9 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
- @@ -102,6 +104,33 @@
+
+
+ + +
+
+ + +
+
+ +
+
+ + +
+
+ + +
+
+ +
+ + +
+
diff --git a/CRM/CatTipoProceso.aspx.cs b/CRM/CatTipoProceso.aspx.cs index 5f00ba584..213e8c538 100644 --- a/CRM/CatTipoProceso.aspx.cs +++ b/CRM/CatTipoProceso.aspx.cs @@ -86,6 +86,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas TxtTipoProceso.Text = ""; TxtDescripcion.Text = ""; ChkEstatus.Checked = true; + ChkRequiereMedioCaptacion.Checked = false; + ChkRequiereImporte.Checked = false; + ChkRequiereProbabilidadAcercamiento.Checked = false; + ChkRequierePS.Checked = false; + ChkRequiereComision.Checked = false; } #endregion @@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString(); TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString(); ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false; + ChkRequiereMedioCaptacion.Checked = GvRow.DataKey("RequiereMedioCaptacion").ToString() == "True" ? true : false; + ChkRequiereImporte.Checked = GvRow.DataKey("RequiereImporte").ToString() == "True" ? true : false; + ChkRequiereProbabilidadAcercamiento.Checked = GvRow.DataKey("RequiereProbabilidadAcercamiento").ToString() == "True" ? true : false; + ChkRequierePS.Checked = GvRow.DataKey("RequierePS").ToString() == "True" ? true : false; + ChkRequiereComision.Checked = GvRow.DataKey("RequiereComision").ToString() == "True" ? true : false; UPModalTipoProceso.Update(); @@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas if (EsEditar == 0) { - if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng)) + if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,ChkRequiereMedioCaptacion.Checked,ChkRequiereImporte.Checked, + ChkRequiereProbabilidadAcercamiento.Checked,ChkRequierePS.Checked,ChkRequiereComision.Checked)) { Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } } else { - if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso)) + if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso, ChkRequiereMedioCaptacion.Checked, ChkRequiereImporte.Checked, + ChkRequiereProbabilidadAcercamiento.Checked, ChkRequierePS.Checked, ChkRequiereComision.Checked)) { Alert("El Tipo de Proceso fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index 46b0baf93..a186c7ebe 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -625,7 +625,7 @@
-
+
@@ -651,13 +651,13 @@
-
+
<%----%>
-
+
<%----%> @@ -665,7 +665,7 @@
-
+
@@ -682,7 +682,7 @@
-
+
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 9e913932a..59d6f5833 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas ViewState["CveGiroClasificacion"] = value; } } + + private List ListTipoProceso + { + get + { + return (List)ViewState["ListTipoProceso"]; + } + + set + { + ViewState["ListTipoProceso"] = value; + } + } #endregion protected void Page_Load(object sender, EventArgs e) @@ -794,6 +807,20 @@ public partial class CRM_EmpresaCRM : ClsPaginas protected void DdlTipoProceso_Change(object sender, EventArgs e) { + + var tipoProceso = ListTipoProceso.Where(x => x.CveTipoProceso == DdlTipoProceso.SelectedValue.ToEntero()).FirstOrDefault(); + if (tipoProceso != null) + { + DivComision.Visible = tipoProceso.RequiereComision; + DivMedioCaptacion.Visible = tipoProceso.RequiereMedioCaptacion; + DivImporte.Visible = tipoProceso.RequiereImporte; + DivProbabilidadAcercamiento.Visible = tipoProceso.RequiereProbabilidadAcercamiento; + DivPS.Visible = tipoProceso.RequierePS; + } + + RfvMedioCaptacionAcercamiento.Enabled = DivMedioCaptacion.Visible; + RFVProbabilidad.Enabled = DivProbabilidadAcercamiento.Visible; + DdlMedioCaptacionAcercamiento.Items.Clear(); DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero())); DdlMedioCaptacionAcercamiento.DataBind(); @@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas DdlMedioCaptacionAcercamiento.Enabled = false; DdlTipoProceso.DataBind(); } + ListTipoProceso = ObjTipoProceso.Result; if (ObjProbalidadAcercamiento.Result.Count > 0) { @@ -1794,7 +1822,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas protected void DdlTipoProcesos_Change(Object sender, EventArgs e) { DdlMedioCaptacion.Items.Clear(); - CargaMetodosCaptacion(); + CargaMetodosCaptacion(); UpDatos.Update(); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 641e09fab..c4e0fa5cd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8690,6 +8690,8 @@ Partial Class Compras_Compras Dim DTConsultaIEPSPS As New DataTable DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'") + + Dim IndiceContador As Integer = 0 Dim IndicePrimero As Integer = 0 @@ -8703,17 +8705,14 @@ Partial Class Compras_Compras If DiferenciaIEPSPS.RoundAD(2) <> 0 Then - If DTConsultaIEPSPS.Rows.Count > 0 Then - 'Ajusta IPES en primer registro que aplique IEPS - TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS - TmpDT.AcceptChanges() - Else - Respuesta = False - Alert(String.Format("Los productos especificados en el listado no tienen asigando impuesto IEPS, favor de realizar la corrección en el producto que aplique el impuesto. ({0}-{1})", IEPSPSDetalles, TxtIEPS.Text.ToDecimal), TipoMensaje.MsgAdvertencia) - End If + + TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS + TmpDT.AcceptChanges() + End If + For Each dRow As DataRow In TmpDT.Rows If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 35c9b14ff..61ecb326a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1271,6 +1271,11 @@ Partial Class PopUpVerFactura DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String))) + Dim DTRelacionados As New DataTable() + DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String))) + DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String))) + + Dim XMLDoc As New XmlDocument Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml") Dim Archivo As New System.IO.FileInfo(Path) @@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura End If - DtUbicaciones.Rows.Add(Row) Next + + + Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + + If nodeRelacion IsNot Nothing Then + Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion") + Dim Relacion As String = "" + + Select Case RelacionCodigo + Case "01" + Relacion = "01 - Nota de crédito de los documentos relacionados" + Case "02" + Relacion = "02 - Nota de débito de los documentos relacionados" + Case "03" + Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos" + Case "04" + Relacion = "04 - Sustitución de los CFDI previos" + Case "05" + Relacion = "05 - Traslados de mercancias facturados previamente" + Case "06" + Relacion = "06 - Factura generada por los traslados previos" + Case "07" + Relacion = "07 - CFDI por aplicación de anticipo" + Case "08" + Relacion = "08 - Factura generada por pagos en parcialidades" + Case "09" + Relacion = "09 - Factura generada por pagos diferidos" + + End Select + + Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + For Each node As XmlNode In nodoDocumentosRealcionados + + Dim nRow As DataRow = DTRelacionados.NewRow + nRow("Relacion") = Relacion + + Try + Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado") + nRow("UUID") = ValorXML(nodoUUID, "UUID", "") + Catch ex As Exception + nRow("UUID") = "" + End Try + + DTRelacionados.Rows.Add(nRow) + Next + End If + + + + Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) If nodeTFD IsNot Nothing Then FolioFiscal = ValorXML(nodeTFD, "UUID", "") @@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura rds4.Value = DtOperadores lrds.Add(rds4) + + Dim rds5 As New ReportDataSource + rds5.Name = "DataSet5" + rds5.Value = DTRelacionados + lrds.Add(rds5) + ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio) End If End If diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index d035cbd6d..e3370d62a 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -25,6 +25,15 @@ Partial Class Compras_ReembolsosComprobaciones ViewState("CveMoneda") = value End Set End Property + + Private Property CvePrePolizaComprobacion As Integer + Get + Return ViewState("CvePrePolizaComprobacion").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CvePrePolizaComprobacion") = value + End Set + End Property Private Property IdCuentaBancaria As Integer Get Return ViewState("IdCuentaBancaria").ToString.ToEntero @@ -316,7 +325,6 @@ Partial Class Compras_ReembolsosComprobaciones If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero End If If HdnTipoTransaccion.Value = "Egs" Then @@ -383,9 +391,6 @@ Partial Class Compras_ReembolsosComprobaciones Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click - - - Dim ValFechaDocumento As Boolean = False Dim FoliosFechasValFechaDocumento As New StringBuilder @@ -408,16 +413,11 @@ Partial Class Compras_ReembolsosComprobaciones FechaDocumento = TxtFechaPrePoliza.Text.ToDate End If - - Dim AnioFactura As Integer = FechaFactura.Year Dim MesFactura As Integer = FechaFactura.Month - - Dim AnioDocumento As Integer = FechaDocumento.Year Dim MesDocumento As Integer = FechaDocumento.Month - If AnioFactura > AnioDocumento Then FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") }
") @@ -441,8 +441,6 @@ Partial Class Compras_ReembolsosComprobaciones Exit Sub End If - - If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDecimal = 0 Then Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia) Exit Sub @@ -488,8 +486,6 @@ Partial Class Compras_ReembolsosComprobaciones Dim UsaSimplificacionCajaChica As Boolean = False If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaSimplificacionCajaChica = True - - Dim concepto As String = "Compras: " For Each Gvr As GridViewRow In GvCxP.Rows @@ -502,7 +498,6 @@ Partial Class Compras_ReembolsosComprobaciones Next - If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then CveIERegistrado = DDlCheques.SelectedValue.ToEntero @@ -514,7 +509,6 @@ Partial Class Compras_ReembolsosComprobaciones If ObjMov.GetRetCuenta(30, CveCajaChica) Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString @@ -535,7 +529,11 @@ Partial Class Compras_ReembolsosComprobaciones CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) IdPoliza = drp("IdPoliza").ToString.ToEntero Else - CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero + If UsuarioActual.CveEmpresa = 141 Then + CvePrePolizaIERegistrado = CvePrePolizaComprobacion + Else + CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero + End If End If End If End If @@ -544,7 +542,6 @@ Partial Class Compras_ReembolsosComprobaciones If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero End If If ChkChequeExcedente.Checked Then @@ -568,7 +565,6 @@ Partial Class Compras_ReembolsosComprobaciones If ObjMov.GetRetCuenta(30, CveCajaChica) Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString @@ -597,7 +593,6 @@ Partial Class Compras_ReembolsosComprobaciones If ObjMov.GetRetCuenta(30, CveCajaChica) Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString @@ -646,14 +641,12 @@ Partial Class Compras_ReembolsosComprobaciones If ObjMov.GetRetCuenta(30, CveCajaChica) Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If Else If ObjMov.GetRetCuenta(29, CvePersonal) Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCtaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero - If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If End If @@ -933,6 +926,31 @@ Partial Class Compras_ReembolsosComprobaciones End If End If End If + Case 5 + ConceptoContableRetIVAXAcreditar = 285 + ConceptoContableRetIVAAcreditable = 286 + If IdCtaRetIVA > 0 Then + IdCtaContableRetIVAXAcreditar = IdCtaRetIVA + ElseIf UsuarioActual.Empresa.Funcionalidad(577).ToEntero > 0 Then + IdCtaContableRetIVAXAcreditar = UsuarioActual.Empresa.Funcionalidad(577).ToEntero + Else + If ObjMov.GetRetCuenta(ConceptoContableRetIVAXAcreditar, UsuarioActual.CveEmpresa) Then + If ObjMov.DtResultados.Rows.Count > 0 Then + IdCtaContableRetIVAXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + End If + End If + End If + If IdCtaRetIVA > 0 Then + IdCtaContableRetIVAAcreditable = IdCtaRetIVA + ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then + IdCtaContableRetIVAAcreditable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero + Else + If ObjMov.GetRetCuenta(ConceptoContableRetIVAAcreditable, UsuarioActual.CveEmpresa) Then + If ObjMov.DtResultados.Rows.Count > 0 Then + IdCtaContableRetIVAAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero + End If + End If + End If End Select If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then @@ -959,84 +977,7 @@ Partial Class Compras_ReembolsosComprobaciones End If End If - 'If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDecimal > 0 Then - ' Dim ConceptoContableRetISRXAcreditar = 0, ConceptoContableRetISRAcreditable = 0, IdCtaContableRetISRXAcreditar = 0, IdCtaContableRetISRAcreditable = 0 - ' Select Case gvr.DataKey("CveRetISRConcepto").ToEntero - ' Case 1 - ' ConceptoContableRetISRXAcreditar = 16 - ' ConceptoContableRetISRAcreditable = 23 - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRXAcreditar = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then - ' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(315).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRAcreditable = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then - ' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' Case 2 - ' ConceptoContableRetISRXAcreditar = 243 - ' ConceptoContableRetISRAcreditable = 244 - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRXAcreditar = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then - ' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(317).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRAcreditable = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then - ' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' End Select - ' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then - ' If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetISR").ToDecimal, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetISR").ToDecimal, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - ' End If - ' Else - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - ' End If - 'End If Dim SaldoExcedente As Double = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal @@ -1282,71 +1223,6 @@ Partial Class Compras_ReembolsosComprobaciones End If End If - 'If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDecimal > 0 Then - ' Dim ConceptoContableRetISRXAcreditar = 0, ConceptoContableRetISRAcreditable = 0, IdCtaContableRetISRXAcreditar = 0, IdCtaContableRetISRAcreditable = 0 - ' Select Case gvr.DataKey("CveRetISRConcepto").ToEntero - ' Case 1 - ' ConceptoContableRetISRXAcreditar = 16 - ' ConceptoContableRetISRAcreditable = 23 - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRXAcreditar = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then - ' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(315).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRAcreditable = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then - ' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' Case 2 - ' ConceptoContableRetISRXAcreditar = 243 - ' ConceptoContableRetISRAcreditable = 244 - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRXAcreditar = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then - ' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(317).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' If IdCtaRetISR > 0 Then - ' IdCtaContableRetISRAcreditable = IdCtaRetISR - ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then - ' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero - ' Else - ' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - ' End Select - - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - - ' 'Agrego el RetISR - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then - ' MsgError = "Detalle" - ' End If - 'End If End If @@ -1408,31 +1284,6 @@ Partial Class Compras_ReembolsosComprobaciones AutoConta = False End If - If AutoConta And MsgError.Trim = "" AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then - If CvePrePolizaIERegistrado > 0 Then - If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaPersonal > 0 Then - If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then - - Else - MsgError = "No tiene cuenta contable SIG de proveedor" - End If - Else - MsgError = "No tiene cuenta contable SIG de personal" - End If - End If - - If ChkChequeExcedente.Checked Then - If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaBancaria > 0 Then - If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then - - Else - MsgError = "No tiene cuenta contable SIG de proveedor" - End If - Else - MsgError = "No tiene Cuenta contable SIG Bancaria" - End If - End If - End If 'Conta ContPAQ AUTOMATICA If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then @@ -1626,6 +1477,7 @@ Partial Class Compras_ReembolsosComprobaciones ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim)) DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0") GvCxP.DataSource = DtDatos + CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero 'Limpia Ddl Chequesventas DDlCheques.Items.Clear() diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index 666f8cd15..bb70141e5 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -253,13 +253,6 @@
-
-
Ver por meses:
-
- -
-
-
@@ -269,11 +262,16 @@
-
- Moneda: +
+
Ver por meses:
+
+ +
- -
+
+ Moneda: +
+
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index b1477c7c3..5c37015df 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas End Property - Public Property ContabilidadSIG As Boolean - Get - If ViewState("ContabilidadSIG") Is Nothing Then - ViewState("ContabilidadSIG") = False - End If - - Return Boolean.Parse(ViewState("ContabilidadSIG").ToString) - - End Get - Set(value As Boolean) - ViewState("ContabilidadSIG") = value - End Set - End Property - #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG ViewState("Orden") = "" DdlPeriodo.SelectedValue = Now.Month.ToString TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString - If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then + If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then CargaSegmentoNeg() CargaEjercicios() @@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero() Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim ObjConta As New ClsContabilidad @@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas DdlSegmentoNeg.Items.Clear() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then DdlSegmentoNeg.DataValueField = "CveSubProyecto" DdlSegmentoNeg.DataTextField = "SubProyecto" DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) @@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas DdlEjercicio.Items.Clear() - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim ObjConta As New ClsContabilidad @@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas If e.Row.RowType = DataControlRowType.DataRow Then - If ContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then e.Row.Cells(2).Text = $"{e.Row.DataKey("Folio")}" e.Row.Cells(6).Text = $"" diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index ad1f7f81f..cc9a97589 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -28,7 +28,7 @@ Partial Class Contabilidad_PolizasImpresion If Not IsPostBack Then - ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG + ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1 TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString TxtFechaFin.Text = Now.ToShortDateString diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 218ddd031..f53ec254c 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -606,8 +606,7 @@
<%----%> <%--
--%> - - + TipoGasto diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index b0404e0a8..979dc9b22 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2399,7 +2399,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveSubProyecto As Integer = -1 Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) - Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero + Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo").ToString.Trim)).ToEntero ' Row("CveConceptoContable").ToString.ToEntero 'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero Dim CveClasificacion As Integer = -1 Dim CveCuentaExcel As Integer = -1 diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index bb8aba1fe..3cd3a76cd 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -282,7 +282,7 @@ Partial Class AC_RepAnexoCatalogo e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red End If - e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString) + e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero) End If End Sub #End Region diff --git a/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb b/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb index 30f7d6f89..2e02836e7 100644 --- a/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoSegmento.aspx.vb @@ -18,6 +18,20 @@ Partial Class AC_RepAnexoCatalogoSegmento ViewState("DtDatos") = value End Set End Property + + Private Property DTCabeceras As DataTable + Get + DTCabeceras = DirectCast(ViewState("DTCabeceras"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTCabeceras") = value + End Set + End Property + + + + Private Property FechaInicio As Date Get FechaInicio = ViewState("FechaInicio").ToString.ToDate @@ -225,7 +239,7 @@ Partial Class AC_RepAnexoCatalogoSegmento Private Sub CargaDatos() Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim DTCabeceras As New DataTable + 'Dim DTCabeceras As New DataTable TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) If ObjConta.GetEstadoActividadesSegmentoDetalle(FechaInicio, FechaFin, IdCuenta, Segmentos) Then @@ -250,17 +264,15 @@ Partial Class AC_RepAnexoCatalogoSegmento CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString - GvDatos.Columns(IndexGV).Visible = True CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString - - IndexActual = IndexActual + 1 If IndexGV >= 200 Then Exit For End If + Next @@ -292,6 +304,25 @@ Partial Class AC_RepAnexoCatalogoSegmento End If + Dim IndexActual As Integer = 0 + For Each Dr As DataRow In DTCabeceras.Rows + + Dim IndexGV As Integer = 3 + IndexActual + + + + e.Row.Cells(IndexGV).Text = $"{e.Row.Cells(IndexGV).Text }" + + + + IndexActual = IndexActual + 1 + If IndexGV >= 200 Then + Exit For + End If + + Next + + End If End Sub #End Region diff --git a/Contabilidad/RepFlujoEfectivo.aspx b/Contabilidad/RepFlujoEfectivo.aspx new file mode 100644 index 000000000..71572a776 --- /dev/null +++ b/Contabilidad/RepFlujoEfectivo.aspx @@ -0,0 +1,115 @@ +<%@ Page Title="Reporte Flujo de Efectivo" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepFlujoEfectivo.aspx.vb" Inherits="Contabilidad_RepFlujoEfectivo" %> + + + + + + + + + Reporte Flujo de Efectivo + + + +
  • + Exporta Excel +
    • + + +     + + + + +
    +
    +
    + +
    +
    +
    + <%--
    Fecha Inicio:
    +
    +
    + + + + + + +
    +
    --%> +
    Fecha Fin:
    +
    +
    + + + + + + +
    +
    +
    Tipo:
    +
    + + + + +
    +
    +
    +
    +
    +     +     + + + + + +
    +
    + + + + +
    + +
    +     + +     + + + + + + + + + + + + + + + + + + + +     +     +
    +
    + + + + +     +     +     + + + diff --git a/Contabilidad/RepFlujoEfectivo.aspx.vb b/Contabilidad/RepFlujoEfectivo.aspx.vb new file mode 100644 index 000000000..eaa2fd164 --- /dev/null +++ b/Contabilidad/RepFlujoEfectivo.aspx.vb @@ -0,0 +1,178 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms +Imports System.IO +Imports iTextSharp.text +Imports iTextSharp.text.html.simpleparser +Imports iTextSharp.text.pdf + +Partial Class Contabilidad_RepFlujoEfectivo + Inherits ClsPaginas + +#Region "PROPIEDADES" + Private Property DtDatos As DataTable + Get + DtDatos = DirectCast(ViewState("DtDatos"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + Private Property TotalActual As Double + Get + TotalActual = ViewState("TotalActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalActual") = value + End Set + End Property + Private Property TotalAnterior As Double + Get + TotalAnterior = ViewState("TotalAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalAnterior") = value + End Set + End Property + + Private Property FechaAl As String + Get + FechaAl = ViewState("FechaAl").ToString + End Get + Set(value As String) + ViewState("FechaAl") = value + End Set + End Property +#End Region + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + + 'TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString + TxtFechaAl.Text = Date.Now.ToShortDateString + + CargaDatos() + + BtnConsultar.Enabled = True + + End If + + End Sub + +#Region "CARGA DATOS Y GRID" + Private Sub CargaDatos() + Dim ObjConta As New ClsContabilidad + + 'Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + + FechaAl = TxtFechaAl.Text + + If ObjConta.GetFlujoEfectivo2(FechaFin, DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + DtDatos = ObjConta.DtResultados + Else + DtDatos = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Flujo de Efectivo", TipoMensaje.MsgError) + End If + + ObjConta.Dispose() + + GvDatos.DataSource = DtDatos + GvDatos.DataBind() + UpDatos.Update() + + End Sub + +#End Region + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + + 'PARA PONER AÑO EN HEADER + If e.Row.RowIndex = 0 Then + GvDatos.HeaderRow.FCLabel("LbPeriodoActual").Text = e.Row.DBCampo("Actual") + GvDatos.HeaderRow.FCLabel("LbPeriodoAnterior").Text = e.Row.DBCampo("Anterior") + End If + + 'TITULO DE BLOQUE (CABECERAS Y TOTALES) + If e.Row.DBCampo("Level") = "-1" Then + CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-top:20px; ") + e.Row.Font.Bold = True + + 'CABCERA + If e.Row.DBCampo("Id") = "12" Then + e.Row.FCLabel("LbActual").Text = "" + e.Row.FCLabel("LbAnterior").Text = "" + End If + + 'TOTAL OPERACIONES + If e.Row.DBCampo("Id") = "123" Then + e.Row.FCLabel("LbActual").Text = TotalActual.ToString.FormatoNumero + e.Row.FCLabel("LbAnterior").Text = TotalAnterior.ToString.FormatoNumero + End If + + End If + + 'ORIGEN Y APLICACION + If e.Row.DBCampo("Level") = "0" Then + CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left:30px; margin-top:15px") + e.Row.Font.Bold = True + End If + + 'PAPAS + If e.Row.DBCampo("Level") = "2" Then + CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left: 60px; margin-top:5px;") + End If + + 'HIJOS + If e.Row.DBCampo("Level") = "3" Then + CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left:90px;") + End If + + 'INGRESOS -> ORIGEN + If e.Row.DBCampo("Codigo").ToString.Substring(0, 5) = "00004" Then e.Row.FCLiteral("LtNombre").Text = "ORIGEN" + + 'GASTOS -> APLICACION + If e.Row.DBCampo("Codigo").ToString.Substring(0, 5) = "00005" Then e.Row.FCLiteral("LtNombre").Text = "APLICACION" + + + + 'ACTIVIDADES DE OPERACION + If e.Row.DBCampo("Sup").ToString <> "" Then + If e.Row.DBCampo("ImporteAnterior").ToString.ToDecimal = 0 Then + e.Row.FCLabel("LbAnterior").Text = "" + End If + If e.Row.DBCampo("ImporteActual").ToString.ToDecimal = 0 Then + e.Row.FCLabel("LbActual").Text = "" + End If + End If + + + End If + End Sub + + + Public Overrides Sub VerifyRenderingInServerForm(control As Control) + + End Sub + + + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + + GvDatos.ExportToExcel2("RepFlujosDeEfectivo.xlsx") + End Sub + + + +End Class diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx index 8dec8d81c..eb419142f 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx @@ -83,9 +83,15 @@
    >
    - +
    - + + +
    + + +
    +
    diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb index e9dbdeb0f..937506849 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -52,6 +52,21 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo ViewState("IdCuenta") = value End Set End Property + + Private Property IdSegNeg As Integer + Get + If ViewState("IdSegNeg") Is Nothing Then + ViewState("IdSegNeg") = -1 + End If + + Return ViewState("IdSegNeg").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IdSegNeg") = value + End Set + End Property + + Private Property TotalPadre As Boolean Get TotalPadre = CBool(ViewState("TotalPadre")) @@ -78,14 +93,19 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Dim ErrorParametros = True CargaTipoCuentas() + CargaMoneda() + CargaSegmentosNegocio() + TxtCuenta.Enabled = False - DdlMoneda.DataSource = GlobalDTMonedas - DdlMoneda.DataBind() If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then + IdCuenta = Request("ID").ToEntero + + IdSegNeg = If(Request("IdSegNeg") IsNot Nothing AndAlso Request("IdSegNeg").ToString.ToEntero > 0, Request("IdSegNeg").ToString.ToEntero, -1) + HdnCveCuenta.Value = IdCuenta.ToString FechaFin = Request("FF").ToDate @@ -113,6 +133,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo End If End If + DdlSegmentoNegocio.SelectedValueExist(IdSegNeg) + End If End If @@ -128,6 +150,27 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo End If End Sub + + Private Sub CargaSegmentosNegocio() + Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa) + Dim strGlobal As String = "" + + If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then + DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados + DdlSegmentoNegocio.DataBind() + End If + ObjContpaq.Dispose() + DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSegmentoNegocio.SelectedValue = "-1" + End Sub + + + Private Sub CargaMoneda() + DdlMoneda.DataSource = GlobalDTMonedas + DdlMoneda.DataBind() + + End Sub + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) @@ -178,7 +221,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Private Sub CargaDatos() Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60) - If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero) Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, DdlSegmentoNegocio.SelectedValue.ToEntero) Then 'DtTotales = DtDatos.Clone DtDatos = ObjConta.DtResultados CargaGrid() diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index c48771d03..da44a42c5 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -57,6 +57,11 @@
    + + +
    + +
    @@ -69,15 +74,16 @@ - - - + + + + @@ -182,6 +188,10 @@
    +
    + + +
    diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 8acd80a65..5c94f0643 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -17,6 +17,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1) + DdlConceptos.DataBind() + DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1")) + CargaDatosModal() End If End Sub @@ -37,12 +41,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then + If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero, DdlConceptos.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjConta.DtResultados End If GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0 - GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0 - + GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0 + GvDatos.Columns(6).Visible = ObjConta.DtResultados.MAX("TipoGasto") <> "" + + If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then GvGlobal.DataSource = ObjConta.DtResultados End If @@ -125,6 +131,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlSubProyectos.Enabled = False DdlClasificacion.Enabled = False DdlPersonal.Enabled = False + RecargaConcepto(CveConceptoContable) + CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta")) @@ -136,12 +144,11 @@ Partial Class Contabilidad2_CatCuentasAsignaciones TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA") DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta")) DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) + DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero) Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero - RecargaConcepto(CveConceptoContable) - DdlClientes.ddl.SelectedValueExist(CveCliente) DdlPersonal.ddl.SelectedValueExist(CvePersonal) @@ -183,6 +190,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" + + If CveConceptoContable = 51 Then + divTipoGasto.Visible = True + DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) + DdlTipoGasto.DataBind() + ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) + End If End If End Sub @@ -253,14 +267,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), - CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then + CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero) Then ErrorString = "Error al agregar" End If ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), - CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then + CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero) Then ErrorString = "Error al actualizar" End If End If diff --git a/Documentacion/140/AMERICA.pdf b/Documentacion/140/AMERICA.pdf new file mode 100644 index 000000000..fd43b3696 Binary files /dev/null and b/Documentacion/140/AMERICA.pdf differ diff --git a/Documentacion/140/CRONOS.pdf b/Documentacion/140/CRONOS.pdf new file mode 100644 index 000000000..d97ffe789 Binary files /dev/null and b/Documentacion/140/CRONOS.pdf differ diff --git a/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf b/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf new file mode 100644 index 000000000..06238e44d Binary files /dev/null and b/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf differ diff --git a/Documentacion/140/DIENER.pdf b/Documentacion/140/DIENER.pdf new file mode 100644 index 000000000..a3209f924 Binary files /dev/null and b/Documentacion/140/DIENER.pdf differ diff --git a/Documentacion/140/FULLPOWER.pdf b/Documentacion/140/FULLPOWER.pdf new file mode 100644 index 000000000..5dcfc215c Binary files /dev/null and b/Documentacion/140/FULLPOWER.pdf differ diff --git a/Documentacion/140/LTH.pdf b/Documentacion/140/LTH.pdf new file mode 100644 index 000000000..407672e33 Binary files /dev/null and b/Documentacion/140/LTH.pdf differ diff --git a/Documentacion/140/LTHAGM.pdf b/Documentacion/140/LTHAGM.pdf new file mode 100644 index 000000000..9738ec723 Binary files /dev/null and b/Documentacion/140/LTHAGM.pdf differ diff --git a/Documentacion/140/LTHESPECIALES.pdf b/Documentacion/140/LTHESPECIALES.pdf new file mode 100644 index 000000000..1fc905bcf Binary files /dev/null and b/Documentacion/140/LTHESPECIALES.pdf differ diff --git a/Documentacion/140/LTHHEAVYDUTY.pdf b/Documentacion/140/LTHHEAVYDUTY.pdf new file mode 100644 index 000000000..848db14c3 Binary files /dev/null and b/Documentacion/140/LTHHEAVYDUTY.pdf differ diff --git a/Documentacion/140/LTHHI-TEC.pdf b/Documentacion/140/LTHHI-TEC.pdf new file mode 100644 index 000000000..9e0248d11 Binary files /dev/null and b/Documentacion/140/LTHHI-TEC.pdf differ diff --git a/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf b/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf new file mode 100644 index 000000000..b7f657762 Binary files /dev/null and b/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf differ diff --git a/Documentacion/140/LTHTAXI.pdf b/Documentacion/140/LTHTAXI.pdf new file mode 100644 index 000000000..54dcd8f98 Binary files /dev/null and b/Documentacion/140/LTHTAXI.pdf differ diff --git a/Documentacion/140/OPTIMA.pdf b/Documentacion/140/OPTIMA.pdf new file mode 100644 index 000000000..000f1e014 Binary files /dev/null and b/Documentacion/140/OPTIMA.pdf differ diff --git a/Empresas/119/Formatos/OC.rdlc b/Empresas/119/Formatos/OC.rdlc index 1d461c99b..642a0e720 100644 --- a/Empresas/119/Formatos/OC.rdlc +++ b/Empresas/119/Formatos/OC.rdlc @@ -410,26 +410,6 @@ LightGrey - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - 2pt 2pt 1pt @@ -612,6 +592,7 @@ @@ -631,6 +612,7 @@ 1pt + true @@ -2072,11 +2054,391 @@ 2pt + + true + + + + + ="Total " & Parameters!Moneda.Value + + + + + + + Textbox20 + 7.3465cm + 16.7985cm + 0.45183cm + 1.8653cm + 28 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SubTotal + + + + + + + Textbox20 + 5.54915cm + 16.7985cm + 0.42361cm + 1.8653cm + 29 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 7.3465cm + 18.6638cm + 0.45183cm + 1.80228cm + 30 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 5.54915cm + 18.6638cm + 0.42361cm + 1.7992cm + 31 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + IVA + + + + + + + Textbox20 + 6.90659cm + 16.7985cm + 0.45183cm + 1.8653cm + 32 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 6.90659cm + 18.6638cm + 0.45183cm + 1.80228cm + 33 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Descuento + + + + + + + Textbox20 + 6.00293cm + 16.7985cm + 0.45183cm + 1.8653cm + 34 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 6.00293cm + 18.6638cm + 0.45183cm + 1.80228cm + 35 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Sub Total 2 + + + + + + + Textbox20 + 6.45476cm + 16.7985cm + 0.45183cm + 1.8653cm + 36 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 6.45476cm + 18.6638cm + 0.45183cm + 1.80228cm + 37 + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + 2pt + 2pt + 2pt + 2pt + + 4.17138in - 4.67366cm + 4.11804cm true true @@ -1886,50 +1886,6 @@ - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - @@ -632,6 +637,7 @@ TotalProductos 0.98129cm + 0.11295cm 0.6cm 5.49393cm 1 @@ -672,7 +678,7 @@ TotalProductos 0.98129cm - 5.55391cm + 5.66686cm 0.6cm 5.57331cm 2 @@ -686,14 +692,472 @@ 2pt + + + + true + true + + + + + =Parameters!NombreEntrego.Value + + + + Textbox21 + 1.75355cm + 2.54796cm + 0.63472cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NombreAccion.Value + + + + Textbox21 + 1.75355cm + 11.26277cm + 0.63528cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Firma + + + + Textbox21 + 2.56352cm + 2.55591cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.56353cm + 11.26987cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OBSERVACIONES: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 1.25938cm + 0.02048cm + 0cm + 19.56892cm + 6 + + + + + + true + true + + + + + ENTREGA + + + + + + + Textbox22 + 1.29466cm + 2.55591cm + 0.6cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 1.25938cm + 11.26987cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value="-1","",Parameters!NombreAccion.Value) + + + + Textbox21 + 1.75299cm + 6.89827cm + 0.63528cm + 5.78664cm + 9 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.56297cm + 6.90537cm + 1.2cm + 5.78664cm + 10 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 1.25882cm + 6.90537cm + 0.6cm + 5.78664cm + 11 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.05938cm + 0cm + 19.56892cm + 12 + + + + + + true + 1.66302cm + 3.76353cm + 19.5894cm + 3 + + =iif(Code.PageNumber() = Code.TotalPages(),False,True) + + + + + - 0.72418in + 2.13644in - 6.45758cm + 0.41981cm true true - - true - true - - - - - =Parameters!NombreEntrego.Value - - - - Textbox21 - 1.87056cm - 2.54cm - 0.63472cm - 5.79375cm - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NombreAccion.Value - - - - Textbox21 - 1.87056cm - 11.25481cm - 0.63528cm - 5.78664cm - 1 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Firma - - - - Textbox21 - 3.82353cm - 2.54795cm - 1.2cm - 5.78664cm - 2 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 3.82354cm - 11.26191cm - 1.2cm - 5.78664cm - 3 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - OBSERVACIONES: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 1.37639cm - 0.00626cm - 0cm - 19.57518cm - 6 - - - - - - 0.17639cm - 0cm - 19.57518cm - 7 - - - - - - true - true - - - - - ENTREGA - - - - - - - Textbox22 - 1.41167cm - 2.54795cm - 0.6cm - 5.78664cm - 8 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 1.37639cm - 11.26191cm - 0.6cm - 5.78664cm - 9 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!NombreAccion.Value="-1","",Parameters!NombreAccion.Value) - - - - Textbox21 - 1.87cm - 6.89031cm - 0.63528cm - 5.78664cm - 10 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 3.82298cm - 6.89741cm - 1.2cm - 5.78664cm - 11 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 1.37583cm - 6.89741cm - 0.6cm - 5.78664cm - 12 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1531,11 +1554,10 @@ Textbox29 - 5.90548cm - 0.00711cm + 0cm + 0.00085cm 0.41981cm 5.78083cm - 13 @@ -1571,11 +1593,11 @@ Textbox31 - 5.90548cm - 7.42772cm + 0cm + 7.42146cm 0.41981cm 6.04844cm - 14 + 1 @@ -1606,11 +1628,11 @@ Textbox35 - 5.90548cm - 17.07518cm + 0cm + 17.06892cm 0.41981cm 2.5cm - 15 + 2 @@ -1622,11 +1644,11 @@ - 5.70264cm - 0.00313cm + 0cm + 0.11295cm 0cm 19.57518cm - 16 + 3 @@ -1857,6 +1879,19 @@ ReportParameter1 + +Public Function PageNumber() as String + Dim str as String + str = Me.Report.Globals!PageNumber.ToString() + Return str +End Function + + +Public Function TotalPages() as String + Dim str as String + str = Me.Report.Globals!TotalPages.ToString() + Return str +End Function image/png @@ -1878,6 +1913,7 @@ PdfBx35OOIxsxc6bfmde0CPzpyKS8dh4WriXz1kK+mrfkx5wjKYmr53cT81GrmbvY+MW/p7yzWQS0c7f 0Qc+q/1isPX7YhG7F22JAj9dtfMW2AwiwC6v+2B/S6lKMFY4ZWVRGQIr2yl0ydYoFLi5ES4BN+9/ezwyKWbvP8YtBMZLVk848Oati0RqgF3AGga+49h9+kgAB6b5IllUoNAb2fpaTwvacDAOSK3aFXM+6j2yLDIpZA8XFHvQ/5H1tJBRE4PefmfSFdIDjq/fi1buiu16PmLZliN3DK38HnAv3nIDPoj+CUI7Z83VkS6+4EP+Z15UVHWe0uGdfbn1yJ3yim/1l299WL0ndsmWKMSZ+RuuLd9+A4EImotKuH9UwkeD3KDNINWoBANH9/icfsYXdc7Y3nyULNocNdKFJGAnQp+2PSTO9dx9+3ock96gnzYejMeTIMsEUV22PRp3QZm3/joIBnV8yeGAJCRRNm7BnntiOi2I7iQ94NgnaWpq478ktQC9aK+G/7CAM9Bq+GPBc6IwP7oTJJq9acVg4vj/WX7jODjyG8fBkd84Do78xnFw5DeOgyO/cRwc+Y3jYMjXr/8L8NSH3fYwrbUAAAAASUVORK5CYII= + true Cm 859971a9-970d-45f5-be4a-0f05a1eb9a33 \ No newline at end of file diff --git a/Empresas/48/Formatos/CHQ-28.rdlc b/Empresas/48/Formatos/CHQ-28.rdlc index 7f9286254..5ccdb248e 100644 --- a/Empresas/48/Formatos/CHQ-28.rdlc +++ b/Empresas/48/Formatos/CHQ-28.rdlc @@ -760,7 +760,7 @@ 8.35775in - 2.05521cm + 1.39375cm true true @@ -925,51 +925,6 @@ 2pt - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 27.94cm 21.59cm 0.5cm @@ -2088,6 +2032,87 @@ ReportParameter1 + + + image/png + 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== + + + image/png + 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 + + Cm 0446ccd6-cd7b-4e18-9ae7-7589107a2103 \ No newline at end of file diff --git a/Empresas/48/Formatos/Factura.rdlc b/Empresas/48/Formatos/Factura.rdlc index 36d9c1899..03e16ee01 100644 --- a/Empresas/48/Formatos/Factura.rdlc +++ b/Empresas/48/Formatos/Factura.rdlc @@ -168,11 +168,11 @@ - Alumbrado Público de Hermosillo + AGENCIA MUNICIPAL DE ENERGIA Y CAMBIO CLIMATICO DE HERMOSILLO @@ -185,7 +185,7 @@ - R.F.C. APH050331V29 alumbrado.hermosillo@hotmail.com + R.F.C. APH050331V29 - true diff --git a/Empresas/48/Formatos/LibroDiario.rdlc b/Empresas/48/Formatos/LibroDiario.rdlc index b1113fc3c..67a49b1c1 100644 --- a/Empresas/48/Formatos/LibroDiario.rdlc +++ b/Empresas/48/Formatos/LibroDiario.rdlc @@ -1092,62 +1092,6 @@ - - 0.68792cm - true - true - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 21.59cm 27.94cm 0.5cm @@ -1267,6 +1211,30 @@ count = count + 1 Return count End function + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + Cm 644b5749-ad74-45b6-ab76-777b4ab74aff \ No newline at end of file diff --git a/Empresas/48/Formatos/LibroMayor.rdlc b/Empresas/48/Formatos/LibroMayor.rdlc index f501868ee..43457466f 100644 --- a/Empresas/48/Formatos/LibroMayor.rdlc +++ b/Empresas/48/Formatos/LibroMayor.rdlc @@ -925,62 +925,6 @@ - - 0.74083cm - true - true - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 21.59cm 27.94cm 0.5cm @@ -1124,6 +1068,30 @@ count = count + 1 Return count End function + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + Cm 644b5749-ad74-45b6-ab76-777b4ab74aff \ No newline at end of file diff --git a/Empresas/48/Formatos/OC.rdlc b/Empresas/48/Formatos/OC.rdlc index 5a07cb490..d9cb161f1 100644 --- a/Empresas/48/Formatos/OC.rdlc +++ b/Empresas/48/Formatos/OC.rdlc @@ -2431,7 +2431,20 @@ - =IIF(Parameters!NombreSolicito.Value = "London Manuel Tapia", "Lic. " & Parameters!NombreSolicito.Value, Parameters!NombreSolicito.Value) + Antonio Almada Botello. + + + + + + + + + Director Mtto. @@ -2443,9 +2456,9 @@ Textbox12 - 8.43521cm + 8.30821cm 3.07712cm - 0.44478cm + 0.7997cm 5.83844cm 28 + + + + + + + + =IIF(Parameters!NombreAutorizo.Value="Guillermo Chan","Almacenista",Parameters!PuestoAutorizo.Value) @@ -2555,9 +2581,9 @@ Textbox12 - 8.43521cm + 8.30821cm 11.4732cm - 0.44478cm + 0.7997cm 5.83844cm 31 + + + + + + + + Director Gral. @@ -2705,7 +2744,7 @@ Textbox12 10.6416cm 7.3963cm - 0.55061cm + 1.00499cm 5.83844cm 36 @@ -3866,7 +3866,7 @@ - R.F.C. APH050331V29 alumbrado.hermosillo@hotmail.com + R.F.C. APH050331V29 - - 0.66146cm - true - true - - - true - true - - - - - Fecha Impresión: - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 27.94cm 21.59cm 0.5cm @@ -932,6 +876,30 @@ count = count + 1 Return count End function + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAGgAAAAcCAYAAACNr/p2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAABY3SURBVGhD7Zr7k1VVdsdv377v9+3b3dBkajKOEytOWVZNZfIPpFKppPJDKpXKT/kPpmp+yg/5IZNUZqzxhSiCogIO+EZhQBRRUVREBEEQEMVHfEZFaPp1+/a9fV+98vmufU93O/4D88Mc2Pecs/faa6293nufjtmSmbf+4B417+jQFgd3vXP5mG4dWnPQGP9DHNGzdWnCEeYvcY9AfHiZhuDUhHcA813AcBeaASt+RWPL87mW+7iWwgR19byJ33memjTxzTiDuvW4C8bXI1yDsXCJr0XaalwBVv1+rR4QWb1H86N3v62SAT/huUsLa+/xLD7VYprgVzTDMWmhIhoJTn2Dy2F0BYTLylP/Kib8/h18K5d3R3BOQ8LSXQyuKMinRi2C1315LtfyewTIFfV5C/16DAKVkBs8RQryThdUGFcTv1IQt2W0WmeYs6Ik3YOR+hU6V0QWKfg7ePQzkAf9KwoSLikm4A2GhIKigTBpYDnOuBrPEYEwMzw73AA2GneGaN7/fQEst4iWP+sKDAc+IuZ9JeEW0fWXyGhW4VV39PyHzXEN4Lm8y390iQc1EAz6vjOuu3BHTe8+JpyRIQVvdAVF48uwkoHaAL/WoDHnRbIR7UHfAMQbP6uVhoJWe4JaxPTqWbTvCUqwq2DUrbsTn6MpjAD3vXE9aJFqelZbAfMrelFbBtGPcAuvFg791XBRiyYsP0dr4hY1dS+/r4KPxr4zPmhRn/MtPuSJKwryoWV40YNHV9KAdoTX+ZFC6V9Fa3mqngfvumKdvpAHt202edYIkzqtcNdPty+k4ep1NbBaOCsM6DEw0LBurzHA27V2B80KJlKy4+1YD5iwYH7p7w9w9tUVMR69+FibnzptxlqtSe4rfHRl +M4Jfalq/v+DPPlWkdY/eB3h174BuqTfArdtgvLUQ8HY7QjoYX8W3BNztBC/ou4IWzdE4DRHkJaLFTx/CEW5rgVOMdAEWTm4d6EhW0kW3K0Bdiiid4EHdPgTA4HyApD6PEnhZbIewo6TVbNd9gigH5kSNcV8l8yQ77u12i16EL1wOrecuuJasp/VGC+1J0eoA92JLU73xOBjXXT+CkTI1SveSPCgk+YXmLItbUZKDA9vpapyLvsHQYEwXQkVA7cA2jfX1OtZqQDTijYH2YqQALWxlrL/YoGEkwEgZ3aUFhlbWK5y62g0ETUffjWrAY7SuBcYkSp+gzg7ynQYkGIQUJtpKM7FOb6AYOlo9EUNZtPZSy9lrgUQkgqAX6ekBL6TyPKTJY6MuRQZ6aqJdZ5LmYRPC5v0yLp9Kc8tlLCTE0JoDZcvaegsAw/xie46ujs914xROV2iUt6CntWgerYsi212UxLqEs4EA28wXXLsroTew1Lrz02a8OwhRAog8bakPvzJa0WXM192Hl+YgeuCuLnfB8q5/GpnXkCBc6FomRsmY5ntIVFjSPAkIJxcTISLJgxaZ2xbKYHTMFjYvs73TAUJr8iY8LQZawLWgWgdhm/uimBBixsUcfOOBgbEm8IsMLPLSAsE8fC3QN82z+4HG9cCd/9YCV5N34Re9Bs/C65dg6JQecWTHp7tot2mSld4XxJf6GG+oL4JjvpYuOeg+jw7QGWEcPsQj4zJysdPsyejCuJQj4YgPrb05aHoPPPGi/0IgHIvtZVkp8GhNC9zVnD/R8qkSOk/0eYcmQU8doib8kq0ChacZOpZorqBFJC9Nt5mpub4gEMyxuskpsw3rzf76xkN2962MTcMwHi5FiEZES74lZUhI87Nmv/kvs5//7DVbf1fXZumbQTCLMCee2riu33lXJGlBp64771pGq6MQxRNATeqNBV4bwCxAqAVcg9TVotUZm4cfjS/Ak5TV0jP3qZmggKvAzTGnzvvC +VejBWwvYOv0yCPEluuInqEUhkjmiAb15cAnOjSgALednwWntmn8V/HPg3YCMbviLI3b7bwPPDfHMeBOLcU9VsuRdTQqQ7IVWim3TFEQkDxXRYifmgP7ctQWepXHlyHkYHBvbYNXKdisVn7Rq5kXLxJ6z6vALtqbyO5I0iJgILm9z0K3TquU7rJR7zEbyL1oh+4Jl8o9bvnyfFYo3ufJmAQbMm5iv5n9r5fRWq43c5kJRv8KpnuT916zZaqnY/VYb/W9XYqH4H1bI/49VSrfZSGmLTYz83orpHdC63Uaqt1kxf7uN1m610bX/7rQqY/dZrrDDxqqPWim11Sq0UvpeKxbutGIZ2NE7bBqlySFkogsYh3sftMdrN1s2/YBlMnfa+js/dgV14TnKZ/JmwdVRzEjtbisUdlkmcdjyqTdstPqCpZP3OR0ZepMlyUD9QjORp7qhQw9HhP9/tdGRf3YaHvmAj/XFDZfCj6xEIeCH6zZbbuiAFRNHLJ15yNLF+yyb3WYT44etEHvHqsnjNjG6yWYQqGy9ztx1Y4+gxKOWix+yfPaA5Ys7LVV42PKlVy2Tessq6QtWSO4OVg48ZKwB06XUbqvE37N87BW3ci1ErHveEdNpxlPHLZfdbLMQy5d+beXqrVYZ2WD5zA7mnYKnM1YrPW1jo9stX1iPQm6yYvVXNoXgMtmjFou9jqE9CV8brVrcYuvGdwVhZg6i3NP07XLvVK5SDJHQ5uElEdtvhfRFy6VPYBBb3LIlSOUW5UBZ+zVrn7Rc7DCGcdAS2cdY807LlZ+wVOZZK+SOWT5x1tZUX/J1i4ZCdkcagZaKKXnPNOv62c//0ybW/dLWrvk3L/S8IqSYcQ/qIQkBzjIwJyEk91l56KzVUidsDkavEkpmkeily1hV4aiVho9aFuuQZcwwf4p5heQxPOwTK+cP2SRhR94gC5brF/KvsIiPrZY5h0XdZHWsowED8rrs8DErDC1YPn7JMsm9ISTAS+T2 +ufQhS8dZ5NhWmwZXAz5EV/inCL+F+GdWHP7cbv4NvOAJypWiq3X8/T98acnMZxZPvGfTrEEhpw7MLPOm4DGNpadjV1HCMQ+HKj0kO4XRYmqvVdNfWmboa8vEL1i1sNdmCJHKd/Jvjx7AFWJvWjX+f1bM7bMpaE7C/GXoyDiqlYOWjX1oxeRpPPh2z0vK11KPsPRIsooYilp1zQX/Ah3K4cqlMoWYZyb2OVLRZRCkSvsslThno6mXrM1Wg+raXVs5SdVhg/di7i6s9R77yxt32iQIUyN3sNi3LZV83aYlfJiYRyBUrx7WJNRc8imr5F/FEoMnSOEKP4nURRtCQbHYtBVLJz1fiI4Yn4PxYQwiljhmc+DzKkvMMygruyohJy7ioW97XvKcwOq1pGl4L5eesUTuG4vhAXPwERVhTejPgK88csQSw5csm3vTZlifaLJLIIRvIkydt1ziil1/LcaTxEMyj3ie8wKFNiUlVrcA85ElY9AHpyLCLHhkfFK41l3IPkMYP2YVIsACPEruPd9ok7WJkVqSIlGhtB/P32dz4BAfHgEZjPkMHlQWT3JPlN6x2PAHNl7eZm2sTeNe3bAyT2S8r7/9fbfGWRBPstBs4VnLZU7b9dcfd8aF0s3Ey0UYZdEScCq5wyrko1meZcHZ4mM2nHkPelcIpdOWTL5FKN0QlAqXUmIs85bFC8dcIb4abaZkceBYO4GCE+8T1k6E6hAAlbTKDXNYY6X4jMVSX6LkU+61FGuuoB545X3x4cPM/9yS6QNWZ0xbiib9tezzlkqfw/vetW8voYj8HquWnrCrjCmPKOlPs/ZU9qDlUh/axNjrriAtWSwudEL5L8NWBKmUnyHUbbJFKVHyJMB7yS1c8CPestlTGOgJu4JcXX7w0mH7EnNlAqBklynfY8nC51jcSde+FqSS3mPmEhJQaUGfDhZUgalqKaeet3L8faskXrYFhK4iRVbodoAkFiHItsSuAjv6g/ttePgWm2Gh +cyi/kKMAQfh5BHHtjyYR6FkrFw7b1BVms7AxlJnMfWBD6VdtnsVpQaKv7YyquFz2YQT0mSXih11BOokQz/IweVQ69bANxS7a3/5NoCcLZm9r83jXWPG85QmN+eRFDOtVq8OjDGOi+LwVhs9aurrfPgf2MnTTxQfwlsdtCqPwKAL+QuYJogK5M4Vy4NXjnk2TN9hXsYcSr+xpPdwm8ncRPe4w7W/lgcpx0qByrJQ4IxrJE0SRg86HULWlTWQePIhnlZ754j5LZhUSjlidiYtUG7IIv1BOX26j2bIM5njVRnipxC5ZeXifL5z9rSsQUYQGoyofL7PYTOU+KqxtVkeRCkGl/KOWpUiQQub0nn7OEkMn6T9jDfJdOfmwpbNnbTj9dPCggYLkRAq16TTJePhtWzP+sidvt1ruMjZ5bD7zvI0Xv6QKPGXlIgVF/hYMYjOK30fuOW6FxNtWzO7yfKXwNImga6mzntPixQftK+h8DZ2RdbsR3lN2yx3ghoisfiT3mlWSlyyfftZDXzD7KYqAgbbkjsyXpyULW22ksMkaeLUKC+UYMasyW+uamLjX4rGTGOxRz6Eq2CS7pd4MChIwC5KQamPPW2zoQ0vmj3j8V15qEQzDyUGXzRlIITiHB8zSdZn3dOY8SfxLcss+t1pZryqQtswHDheZLxeujFDZZd8mZ2zzZHsVhRTzB6iktnviFvOV3EYrlT8mvHxik9+ioMIjKOig1cYf8X2LQlefxKaQq0KhUH2IuL3XvgG2SV84omerjXyu+wmV3/AnKIfCJP461dwDVh67yzLFDcT7e9kKbLc/W4PQ4E35QgVLobyRfPKulbOX7Ao8fYOSZVixxEuWK35l6dz+sE0AvpR8jQLgC4zpgHtnSBzioU++RgvSD/NHR16iYjxLhfuQtXlXNGEIg6KGA49klkvvZKvxFYXJm9YEv+vHFdNBQQ6N6zKQze1EQe9ZhsQcJSuBaYLO8GS5Y9nbbAIvKP/gF/YF +BBPZY1jXaULA057sZDhquhRuZHHaDBZz71pq6COrVXbYLAtKZV61BGV5bfRRm0bh2psqBAxR2seSn9k3GEyxdIAK7HGbpV9hQYsX0+LlMnOy+d2WQ9BuGNBR8tXZmLwpn32dEHbFxtIkcHDNgOMycCpiJHwv9+FLOWVSYxhIsfgSyvkaaz5nlcrj5Na7yZN7LJ58k/w44yW7vEcGkKIEzyc+Jf8ddP50FimBqxL26AOdFvJJJ8/bcOwjFLrduoJjbjPoz8OdctdIiXUMn7IbrjsTDJwxHVB3ei0UpHgEQpWM1bFNWOS7nnQnWYT2Ra5lkPimjEWNJF60EhaVrvzSpiA0uuaQVapnbDj5tF1CaNoTSbGioj2VEv3I+HMw+QnW+Y796MebvbCIsbdJlT6xQuUJLy81qQP+QpVwkrlAmP0YmDOUqgdsmnEJstHVuRkVpyuAxEvZXivtslnGVb6qFlUeUrWWy70BzYtWpvryEAr/kPWUC0t+SiBPdCHRoT1RNvk5IfMD32iO5B4kFG5m4/0QinkJI/yCaPGGl8pS0r/80xUKozMUCofsikIkdLX2dO1Bi+H1kl9lhHUPf0GV+b795IdbvThRLnXlACtDvoLMxsYewDm2+obX8zdji/0WcMpBVAHSqoAlzHT6sCWHjtva2kMeW6UUKW8KgqXCPVZLkxjjhED6ZhCq9h7p1FO48RuWLz/tVcgcC1dslWWXRvZbJk+sT1JIZJ5zL5MVx3Pn8JT3KRy2OWybfp29XSaEpyrHUdK37knFzB4/vpEH6ZxQIUyK194lG/9fkv1OT9LReaCKGsGntC+jErvzziUPY7DlrcE/hUJdKmVVcEyMbaTYOM0+7CO77vqzNgM+hacWa5NxesWZ/JRwdjKUysgrRAHK+BSb9+rv/TjrErCxLOvKNqhMz1kifYacThnOuhvgUwQSf+JTTTJXNZrLbGVLsMFPb6JDWNWjOn7zjaoskrleQVSr+9j8XbBS7LyN +Ji/A2CnL5M5Qkp7GailpUxdstLzfKxnt+v1IqHa/ZRKnEMpnNoT1ZcvHLJk6avnceYtT4eWzZwgdO1zhivXTtFj8LYqSc/7uhxliHGEpSSbzT1g8/xUwbG7Z8avyEoxOllvEF4UPV9DQeZuobDB9/VA1JDQqUiTcLDv4ZAKLB7/WrOYKpPkFPeXeLsIfTe+x3NArrJ0cI/7Uj/BUbGjPoxyaRw7F+MkQpoCRwY6u3cIaT+CpF8ifZ/GUd1HMJK2FUtjbDV2wIbYgV5CRwprzBxdtTEUncDL8tYTIQuyE1Yo4BHBitEVShKwXCzFpVBN1uC6PUEVTKxygMjuGki5YCiFlCgh++ATJ+0X76XVUeDCnvYyHFeaoIlxT2W2JmPYVwGUJUWwg4wnyTvKojdf2+AGqDEFWfPPG04SgnRQJW12w/SU47TICV6J/w1/9jopvP3j22j/+3cuuOPXL5cWrPCif2+JFhGoR36cx4Gdk0Fg3+guqtj2WL21zzwt/hxBg/EHKESyC//HYr21keKONl+53a/b8AYCGlfN0LihLz6XuZkvxoN274SPnR3lInlktk+CzR6wwxB6OiBDPfurhWacXudxJy5T2eo7zDS5Jqd2b83UohMkTR/PbrTi020arN3vlGVnRPHFXPMSWVEpjdtFJth+WQrhObLz2z+8nJ91rlfFNbkU62fXvbDJHzWah0Xe3SMZ3r2/jrhutXHvAbqYsVWWuuCqr11F6A4twFOBwl2de+DQ8h4DZZAKjMChBqfTVIqLKULJVU/yeZB77OH9u6JArungX/8o52ny6UpzBMObKWfUsBcvrxItKd8kHkl6paYkdsr/6VCV6ThbzwktTsSL+FKKl3PE1GyxbetCuv/EVm8YzS7nNhOEjGMzB8MUXTPIgqV+VsYzT59N0+uKoeda3MuXaTp9QKeb1Vy6Ky82+GgsESJP9qF2LpUkEQt5TiYT/61N0TxWEFgy8zmEwCqeioxSVwS5gMaYF ++W0R0Hm/e4eQascrrgZfScOnD5/iYUGHEX4gAXyLeONFAFockAJFWLTGwydqfT5TEJGSRERjAz55Vc/qFl36Cq2mS5/oRb/lsVf4CauDTyTRZ3kZo3Dqa6zAtAw/74MphS4Puyh/vLjLfnrNM54X9dFP52/OL5P13qLu1jdo59e3NKCHeE+f7ZFTTEMEN1qdQe0j9NEOAvz4RzGA9YGroYzpQgQpcUMw+jyh6kqxUgeujp0BEZBldyQUCRdG5KXKId2leaxwYKrigfH+PBO0QQB3xKCP687lfXoHXxuC0XBLeHUfKFB0JEE9hh2R+vnVEbImcdOYQpfj9IZCO/AzGGzo0JG7LLzPTr5DSOqq/KJvsL0BHkMA3An7CQvxh3e3NxmVooLWJSUx7JtoZ0ZomkxFk6qehQMuhXMe/C6OIAa6MRJkGpMbhT/ka4Bcu2B5VPhErOZfpv0S1QbhI3wuFj0xJEi9t1S3ClaE2GT45+hgCvQrMerDtywcPGJO5q9XIdI8gdH8ON61Tp9vqMJ+wEOEXrmkIv9DDJ413bv9gR7h4mr7BDp1POWK45Xh8Jlc/eE9lE1SBDRIYt7FT6cdLNj5dSVzo8mTVF15FaEYp70BMAssSLnLlSc+xBRupVDJf6fVIk76H5gsoSBFDZcNhuC9QSSi7X+0ovkMr/zh4p+uP8rrTwr6o77M/h/fWtZW+jPbpgAAAABJRU5ErkJggg== + + Cm 644b5749-ad74-45b6-ab76-777b4ab74aff \ No newline at end of file diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index 0c8dc838c..51e0dbc2b 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -1739,7 +1739,7 @@ Textbox45 - 6.14767in + 6.89767in 0.41187cm 3.03416cm 15.44579cm @@ -1758,7 +1758,7 @@ External =Parameters!QR.Value FitProportional - 6.03582in + 6.78582in 6.18415in 1.2939in 1.53682in @@ -2255,16 +2255,16 @@ - 3.00921cm + 3.03118cm - 8.91467cm + 8.93664cm - 2.35479cm + 2.37676cm - 2.95015cm + 2.97212cm @@ -2618,7 +2618,7 @@ - 1.86551cm + 1.88748cm true @@ -2673,10 +2673,10 @@ true true DataSet1 - 11.84512cm + 13.75012cm 0.33883cm 1.12062cm - 19.09433cm + 19.20418cm 13 + + + + + + + + + + true + true + + + + + RELACIÓN + + + + + + + Textbox62 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UUID + + + + + + + Textbox69 + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.90553cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!Relacion.Value + + + + + =Fields!Relacion.Value + + + + 9.19562cm + + + true + true + + + + + =Fields!Relacion.Value + + + + + + + Relacion + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + =Fields!UUID.Value + + + + + =Fields!UUID.Value + + + + 8.99524cm + + + true + true + + + + + =Fields!UUID.Value + + + + + + + UUID + + 2pt + + + + + + 1pt + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + true + true + DataSet5 + 0.50301cm + 0.08761cm + 1.12062cm + 19.0964cm + + + + + + true + true + + + + + FOLIOS RELACIONADOS + + + + + + + Textbox3 + 0.02618cm + 0.5cm + 7.52776in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 11.30856cm + 0.31265cm + 1.71919cm + 19.23572cm + 24 + + =IIf(CountRows("DataSet5") = 0, True, False) + + + + + - 7.34222in + 8.09222in @@ -3653,10 +4038,10 @@ Textbox14 - 0.17636cm - 15.0542cm + 0.14461cm + 14.9272cm 0.54708cm - 4.8023cm + 4.70062cm 5 + + @@ -274,6 +276,8 @@
    + +
    @@ -483,6 +487,135 @@
    +
    +
    +
    + +
    + + + +
    +
    +
    + + Documentos +
    +
    + + + + +
    +
    +
    + + + + + + +
    +
    +
    + AMERICA +
    +
    +
    +
    + CRONOS +
    +
    +
    + +
    +
    +
    + DIENER +
    +
    +
    +
    + FULL POWER +
    +
    +
    + + +
    +
    +
    + LTH AGM +
    +
    +
    +
    + LTH ESPECIALES +
    +
    +
    + +
    +
    +
    + LTH HEAVY DUTY +
    +
    +
    +
    + LTH HI-TEC +
    +
    +
    + + +
    +
    +
    + LTH SUV-VAN-MINIVAN +
    +
    +
    +
    + LTH TAXI +
    +
    +
    + +
    +
    +
    + LTH +
    +
    +
    +
    + OPTIMA +
    +
    + + +
    + + +
    +
    +
    + Cat APS AGM-HT-LTH-CR 2021 +
    +
    +
    + + +     + + +     + + + + +
    diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 243cb6959..c81970688 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -231,6 +231,11 @@ Partial Class Inicio 'Evaluacion del proveedor CargaEvaluacionProveedor() + + If UsuarioActual.CveEmpresa = 140 Then + DVDescargasBDH.Visible = True + End If + End If End Sub @@ -1245,4 +1250,38 @@ Partial Class Inicio End If RegistraScript("$('#DvUnoaUno').modal('hide')") End Sub + + 'Protected Sub LnkDecargaDoc_Click(sender As Object, e As EventArgs) + + ' Dim NombreArchivo As String = DirectCast(sender, LinkButton).Attributes("NombreArchivo") + ' Dim filePath As String = $"{Server.MapPath("~")}\Documentacion\140\{DirectCast(sender, LinkButton).Attributes("NombreArchivo")}" + + + ' Dim Archivo As New System.IO.FileInfo(filePath) + + + ' Dim mimeType As String = Nothing + + ' If Archivo.Exists Then + + ' HttpContext.Current.Response.Buffer = True + ' HttpContext.Current.Response.Clear() + ' HttpContext.Current.Response.ClearContent() + ' HttpContext.Current.Response.ContentType = mimeType + ' HttpContext.Current.Response.AppendHeader("Content-disposition", "inline; filename=" & NombreArchivo) + ' HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + ' HttpContext.Current.Response.TransmitFile(filePath) + ' HttpContext.Current.Response.Flush() + ' HttpContext.Current.Response.SuppressContent = True + ' HttpContext.Current.ApplicationInstance.CompleteRequest() + ' HttpContext.Current.Response.End() + + ' Archivo = Nothing + ' End If + + + + + 'End Sub + End Class diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index 7cd5d7c6c..24a4bf08d 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen End Sub Private Sub CargaCombos() - Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16,19, 26)") + Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2, 4,12,14,16,19, 26)") DdlAlmacen.DataSource = DtAlmacenes DdlAlmacen.DataBind() diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index e73faca4b..cefd8ec94 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1428,7 +1428,7 @@ Cant Producto Sección almacén - Serie + Serie Lote Caducidad @@ -1440,7 +1440,7 @@
    - +
    @@ -1449,7 +1449,7 @@ - + @@ -1701,6 +1701,25 @@
    + + + + +
    + + + + + + +
    + + + + +
    diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9cdc4a770..8fd65caff 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -288,12 +288,25 @@ Partial Class Inventarios_EntradasSalidas End Set End Property + Public Property AplicaVigenciaCambioVigencia() As Boolean + Get + If ViewState("CveAFEdit") Is Nothing Then + ViewState("CveAFEdit") = False + End If + Return Boolean.Parse(ViewState("CveAFEdit").ToString) + End Get + Set(value As Boolean) + ViewState("CveAFEdit") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then + If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119) Exit Sub @@ -333,7 +346,6 @@ Partial Class Inventarios_EntradasSalidas divGuia.Visible = True End Select - If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then LnkGenerarVirtual.Visible = True @@ -367,6 +379,11 @@ Partial Class Inventarios_EntradasSalidas ActivaConsumoInterno() End If + If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then + CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero) + End If + + 'BLOQUEA PERMISOS BtnGuardar.Enabled = PermiteGuardar() BtnEliminar.Enabled = PermiteEliminar() @@ -494,6 +511,7 @@ Partial Class Inventarios_EntradasSalidas dt.Columns.Add("Observaciones") dt.Columns.Add("CountMovimientoEntradaDetalle") dt.Columns.Add("TotalExtranjero", Type.GetType("System.Double")) + dt.Columns.Add("CveCultivoCuadroDetalle", Type.GetType("System.Int32")) CargaGVM(dt) @@ -545,15 +563,16 @@ Partial Class Inventarios_EntradasSalidas 'Llenar el dropdownlist de almacén - If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then + If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) 'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - End If - + If IfNull(Request("CI"), -1).ToString.ToEntero > 0 And UsuarioActual.Empresa.Funcionalidad(590) = "1" Then + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") + End If DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") @@ -570,7 +589,7 @@ Partial Class Inventarios_EntradasSalidas DdlAlmacenInventarioFisico.DataBind() DdlAlmacenCambioVigencias.DataBind() - If IsNothing(Request("CveMovimiento")) Then + If IsNothing(Request("CveMovimiento")) And IsNothing(Request("CveEntregaAlmacen")) Then DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty) End If @@ -656,8 +675,6 @@ Partial Class Inventarios_EntradasSalidas GvM.Columns(8).Visible = False End If - - If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then CveMovimiento = Mov.CveMovimiento @@ -668,7 +685,6 @@ Partial Class Inventarios_EntradasSalidas Folio = Mov.Folio Dim drM As DataRow = DtMov.Rows(0) - If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then HplTraspaso.Visible = True HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}" @@ -1044,6 +1060,32 @@ Partial Class Inventarios_EntradasSalidas End Sub + + Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer) + 'RECARGA ALMACENES SOLO DE recepcion de usados + DdlAlmacen.Items.Clear() + DdlAlmacen.DataBind() + Dim dttA As DataTable = Nothing + dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)") + + DdlAlmacen.DataSource = dttA + DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlAlmacen.DataBind() + DdlAlmacen.SelectedIndex = 1 'toma el primer renglón + + Dim ObjGenerales As New ClsGenerales() + + If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then + + For Each dr As DataRow In ObjGenerales.DtResultados.Rows + AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal, + 0, "", "", "", "", "E", "", MinFecha, 0, "") + Next + End If + ObjGenerales.Dispose() + End Sub + + Private Sub BloqueaEdicionEncabezado() @@ -1291,7 +1333,7 @@ Partial Class Inventarios_EntradasSalidas AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDecimal, txtPrecio.Text.ToDecimal, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text, - TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text) + TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.Toentero) LimpiarAgregar() txtCantidad.Text = "" @@ -1302,6 +1344,8 @@ Partial Class Inventarios_EntradasSalidas TxtnFechaCaducidad.Text = "" HdnCodigoAF.Value = "-1" HdnCveActivoFijo.Value = "-1" + DdlModalCultivosCuadro.SelectedValueExist(-1) + RegistraScript("CodigoAF = "";") If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then @@ -1315,7 +1359,8 @@ Partial Class Inventarios_EntradasSalidas End Sub - Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Decimal, PU As Decimal, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Optional CargarGV As Boolean = True) + Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Decimal, PU As Decimal, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Optional CargarGV As Boolean = True, Optional CveCultivoCuadroDetalle As Integer = -1) + If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub Dim Valido As Boolean = True @@ -1408,6 +1453,8 @@ Partial Class Inventarios_EntradasSalidas registro.Item("FechaCaducidad") = FechaCaducidad registro.Item("Observaciones") = Observaciones registro.Item("AplicaCaducidad") = RowPS("AplicaCaducidad").ToString + registro.Item("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle + DtMovimientos.Rows.Add(registro) If CargarGV Then @@ -1499,13 +1546,13 @@ Partial Class Inventarios_EntradasSalidas If GlobalDTInvConceptos.FiltraParametros(String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue.ToEntero)).Rows.Count > 0 AndAlso GlobalDTInvConceptos.FiltraParametros(String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue.ToEntero)).Rows(0)("Origen").ToString.ToEntero < 0 Then If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString)) >= Dr("Cantidad").ToString.ToDouble Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al Agregar los nuevos movimientos" ErrorMovInv = True : Exit For End If Else If UsuarioActual.TienePermisoProceso(114) Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al Agregar los nuevos movimientos" ErrorMovInv = True : Exit For End If @@ -1515,7 +1562,7 @@ Partial Class Inventarios_EntradasSalidas End If End If Else - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al Agregar los nuevos movimientos" ErrorMovInv = True : Exit For End If @@ -1632,7 +1679,7 @@ Partial Class Inventarios_EntradasSalidas Dim FechaCaducidadVal As Date = If(Dr("AplicaCaducidad").ToString = "True", Dr("FechaCaducidad").ToString.ToDate, MinFecha) If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString), FechaCaducidad:=FechaCaducidadVal) >= Dr("Cantidad").ToString.ToDouble Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=FechaCaducidadVal, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=FechaCaducidadVal, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al guardar los movimientos" ErrorMovInv = True Exit For @@ -1650,7 +1697,7 @@ Partial Class Inventarios_EntradasSalidas Else If UsuarioActual.TienePermisoProceso(114) Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al guardar los movimientos" ErrorMovInv = True Exit For @@ -1684,7 +1731,7 @@ Partial Class Inventarios_EntradasSalidas ImporteConcepto = Dr("PU").ToString.ToDecimal End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then Mensaje = "Error al guardar los movimientos" ErrorMovInv = True Exit For @@ -1919,7 +1966,7 @@ Partial Class Inventarios_EntradasSalidas If Not ErrorAC And Not ErrorMovInv Then Dim Msg As New StringBuilder - Msg.AppendFormat("
    El Movimiento se registro con el Folio: {0}", ObjInventario.Folio) + Msg.AppendFormat("
    El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, CveMovimiento) Msg.AppendFormat("

    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If RetornoVirtual IsNot Nothing Then @@ -3289,6 +3336,24 @@ Partial Class Inventarios_EntradasSalidas DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) End If + + If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then + TrSubProyectoActivoFijo.Visible = True + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno") + + DVCultivosCuadro.Visible = True + CargaCultivos() + + End If + + End Sub + + + Private Sub CargaCultivos() + DdlModalCultivosCuadro.Items.Clear() + DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlModalCultivosCuadro.DataBind() + DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End Sub #End Region @@ -3752,6 +3817,35 @@ Partial Class Inventarios_EntradasSalidas Protected Sub LnkCambioVigencia_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambiarVigencias")) + + TxtCantCambio.Text = "" + TxtSerieCambio.Text = "" + TxtFechaCambio.Text = Now.ToString("dd/MM/yyyy") + TxtObsCambioVigencia.Text = "" + + Th5.Visible = False + Th6.Visible = False + Th7.Visible = False + Th8.Visible = False + + + Td5.Visible = False + Td6.Visible = False + Td7.Visible = False + Td8.Visible = False + + DdlPSCambioSalida.txtText.Value = "" + DdlPSCambioSalida.txtValue.Value = "" + + DdlSeccionCambio.SelectedValueExist(-1) + DdlAlmacenCambioVigencias.SelectedValueExist(-1) + + + AplicaVigenciaCambioVigencia = False + + UpCambioSalida.Update() + UpModalCambiarVigencias.Update() + End Sub #Region "ENTRADAS" @@ -3984,15 +4078,47 @@ Partial Class Inventarios_EntradasSalidas #Region "CAMBIO VIGENCIA" Private Sub LnkAddSalidaCambio_Click(sender As Object, e As EventArgs) Handles LnkAddSalidaCambio.Click + If Not DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia) Exit Sub End If + + If AplicaVigenciaCambioVigencia And TxtSerieCambio.Text.Trim.Length = 0 Then + Alert("Es necesario especificar la serie del producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + AddPSCambioSalida(DdlPSCambioSalida.SelectedValue.ToEntero, TxtCantCambio.Text.ToDouble) End Sub + Protected Sub DdlPSCambioSalida_selectedindexchange(sender As Object, e As EventArgs) + + Td6.Visible = False + Th6.Visible = False + + If DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then + + Using ObjPS As New ClsProductosServicios() + If ObjPS.GetPS(DdlPSCambioSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then + + AplicaVigenciaCambioVigencia = If(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString = "", False, Boolean.Parse(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString)) + + Td6.Visible = AplicaVigenciaCambioVigencia + Th6.Visible = AplicaVigenciaCambioVigencia + + End If + End Using + + + End If + + UpCambioSalida.Update() + + End Sub + Protected Sub AddPSCambioSalida(CvePS As Integer, Cantidad As Double) If DdlAlmacenCambioVigencias.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPSCambioSalida.SelectedText = "" : Exit Sub @@ -4004,10 +4130,10 @@ Partial Class Inventarios_EntradasSalidas Dim CodigoPS As String = "" Dim PS As String = "" - Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero - Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text) - Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text) - Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text) + Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero + Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text) + Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text) + Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text) Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS") If dr IsNot Nothing Then @@ -4328,6 +4454,8 @@ Partial Class Inventarios_EntradasSalidas End Sub Private Sub BtnGuardarCambiosVigencia_Click(sender As Object, e As EventArgs) Handles BtnGuardarCambiosVigencia.Click + + If GvSalidasCambioVigencia.Rows.Count = 0 Then Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") @@ -4929,6 +5057,18 @@ Partial Class Inventarios_EntradasSalidas '#End Region Protected Sub LkAgregar_Click() Handles LnkAgregarProducto.Click + + If EsConsumoInterno And UsuarioActual.Empresa.Funcionalidad(590) = "1" Then + + If DdlSubProyecto.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un Centro de Constos.", TipoMensaje.MsgAdvertencia) + Exit Sub + Else + CargaCultivos() + End If + + End If + limpiarModalDetalle() UpAgregar.Update() RegistraScript("$('#ModalAgregar').modal()") @@ -4939,7 +5079,7 @@ Partial Class Inventarios_EntradasSalidas Dim ObjInventario As New ClsInventarios If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit, CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text, - CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero) Then Alert("Error al Actualizar los movimientos") Else Alert("Movimiento actualizado correctamente") @@ -4967,6 +5107,7 @@ Partial Class Inventarios_EntradasSalidas TxtObservacionesdetalle.Text = "" DdlSeccionAlmacen.ClearSelection() LkAgregarDetalle.Text = "Agregar" + DdlModalCultivosCuadro.SelectedValueExist(-1) If DdlMonedaTC.SelectedValue.ToEntero = 2 Then VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201)) Else @@ -5321,4 +5462,5 @@ Partial Class Inventarios_EntradasSalidas Public Property FolioVirtual As String Public Property TieneError As Boolean End Class + End Class diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 4a3ee3bdf..dfb9a2978 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1805,6 +1805,7 @@ Partial Class Inventarios_EntregaAlmacen ObjConta.Dispose() ObjVentas.Dispose() ObjEventos.Dispose() + '' identificar que productos no están completos. CargaVentaPorSurtir(CveVentaSurtir) CargaPendientes() Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) @@ -2324,13 +2325,33 @@ Partial Class Inventarios_EntregaAlmacen Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim Serie As String = RowGarantia("Comprobante").ToString - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") Exit For End If TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU) Next + + ''se registra + 'If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.ToDate, HLFolio.Text, "EntregaAlmacen", -1, CveMovimientoGarantia, TotalGarantia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True) <= 0 Then + ' ErrorMovInv = True + 'End If + + Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CvePrePolizaTraspaso > 0 Then + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantia, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then + ErrorMovInv = True + End If + + If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantia, TxtObservaciones.Text, 95, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then + ErrorMovInv = True + End If + Else + ErrorMovInv = True + End If End If End If ' TERMINA: GARANTIAS diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx index 58152aa09..41e4cb0a0 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx +++ b/Inventarios/EntregaAlmacenRuta.aspx @@ -12,6 +12,19 @@ .MultiLineTextBox { resize: none; } + + .truncate { + width: 300px; + white-space: nowrap; + overflow: hidden; + text-overflow: ellipsis; + } + + .tooltip-inner { + max-width: 750px !important; + font-size: 14px; + } + @@ -326,13 +339,13 @@
    - +
    - Recoleccion + Recolección
    @@ -341,48 +354,71 @@
    - - +   - <%----%> - + -   +   - + <%----%> + + +   + + + + +   + + +   - + +
      +
    - +   - - - + - - +   - + + + +
    +   +
    +     +     + + + + + + +     @@ -397,8 +433,7 @@
    - - +
    -
    +
    - - -
    -
    - +
    +
    + -
    - - - - - - - + + + + + + + + + +
    -
    -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    -
    +
    @@ -554,6 +573,22 @@
    +
    +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    +
    diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 5d62f7b4b..9fe1c890f 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -11,8 +11,7 @@ using System.Text; public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas { - - + DataTable DTGenerarDocumentos { get { @@ -379,11 +378,10 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } } Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); + CargaDatosRecoleccion(); DdlChofer.SelectedValueExist("-1"); DdlUnidadCamion.SelectedValueExist("-1"); - ChkEmitirCartaPorte.Checked = false; - + SeleccionEntrega = false; SeleccionarGenerar(1); UpDatos.Update(); @@ -437,6 +435,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas TxtFechaEntrega.Text = DateTime.Now.ToShortDateString(); TabRecoleccion.Visible = UsuarioActual.Empresa.Funcionalidad(531)=="1"; + TxtFechaLimite.Text = DateTime.Now.ToShortDateString(); CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); CargarCentrosDeCosto(null, DdlSubProyectoRecoleccion, null, LblSubProyectoRecoleccion); @@ -704,7 +703,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ClsClientes ObjClientes = new ClsClientes(); if (ObjClientes.DireccionEnvioGet(-1, DdlModalRecoleccionCliente.SelectedValue.ToEntero(), -1)) { - DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados; + DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados.FiltraParametros("CveSubProyecto = " + DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); } ObjClientes.Dispose(); } @@ -816,7 +815,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if( CveEntregaAlmacen == -1) { DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate(); - CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R",TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1,0,1) ; + CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R",TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1,0,1) ; if (CveEntregaAlmacen > 0) { //CveTimbrenuevo = ObjGenerales.AddGralTimbre("Rec", "-1", -1, "-1", TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, -1); @@ -837,15 +836,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } //} } - } else { - ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); - - } - + } if (ProcesoOK) { @@ -877,10 +872,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ObjGenerales.Dispose(); CargaDatosRecoleccion(); - } - #endregion protected void LnkModalGvModalPSRecoleccionEliminar_Click(object sender, EventArgs e) @@ -889,8 +882,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas GridViewRow GvRow = (GridViewRow)LnkEliminar.NamingContainer; if (CveEntregaAlmacen > 0) - { - + { int CveEntregaAlmacenDetalleEliminar = GvRow.DataKey("CveEntregaAlmacenDetalle").ToEntero(); ClsGenerales ObjGenerales = new ClsGenerales(); @@ -907,8 +899,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas DTRecoleccion.Rows[DTIndex].Delete(); DTRecoleccion.AcceptChanges(); - } - + } CargaDatosRecoleccionDetallePS(); } @@ -945,9 +936,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas LimpiarControlesPS(); CargaDatosRecoleccionDetallePS(); - } - - + } private void LimpiarControlesPS() { TxtModalRecoleccionCantidad.Text = ""; @@ -1026,5 +1015,26 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } } + + protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + LinkButton LnkEditar = e.Row.FCLinkButton("LnkGvDatosRecoleccionEditar"); + LinkButton LnkEliminar = e.Row.FCLinkButton("LnkGvDatosRecoleccionEliminar"); + if (e.Row.DataKey("Estatus") == "0" || e.Row.DataKey("Estatus") == "") + { + LnkEditar.Visible = true; + LnkEliminar.Visible = true; + + } + if (e.Row.DataKey("CveTimbre") != "") + { + e.Row.FCCheckBox("Chk").Visible = false; + } + + + } + } } \ No newline at end of file diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 69f7d02cf..7de97217d 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1242,7 +1242,6 @@ Partial Class Inventarios_RecepcionUsados CveVenta = -1 End If - If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then CargaDTDetalleRNC() @@ -1255,6 +1254,12 @@ Partial Class Inventarios_RecepcionUsados 'Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia)) CveVenta = Resp.CveVenta + If Resp.CveMovimientoUsado <= 0 Then + Msg.Append("Error al guardar los movimientos de usados") + ErrorMovInv = True + End If + + End If Dim Mensaje As String = "" @@ -1334,10 +1339,10 @@ Partial Class Inventarios_RecepcionUsados ' End If 'End If - 'GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC - 'If Not ErrorMovInv Then - ' ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True) - 'End If + ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC + If Not ErrorMovInv Then + ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True) + End If End If @@ -1433,12 +1438,12 @@ Partial Class Inventarios_RecepcionUsados If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim tCveConcepto As Integer = 278 For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL If tCveConcepto = 69 Then IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero End If @@ -2414,33 +2419,20 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda)) Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda)) Me.ObjRemisionNC.TipoDocto = "RNC" - Me.ObjRemisionNC.RefDocto = "" - Me.ObjRemisionNC.CveMesa = -1 Dim Fecha As DateTime = TxtFecha.Text.ToDateTime() Me.ObjRemisionNC.Fecha = Fecha Me.ObjRemisionNC.CvePrePoliza = -1 Me.ObjRemisionNC.FechaPago = Fecha - Me.ObjRemisionNC.MotivoDescuento = "" Me.ObjRemisionNC.FechaEjecucion = Fecha Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario - Me.ObjRemisionNC.CveCondicionEntrega = -1 - Me.ObjRemisionNC.CondicionEntrega = "" - Me.ObjRemisionNC.NumeroCuenta = "" Me.ObjRemisionNC.CondicionesPago = 0 Me.ObjRemisionNC.FormaPago = 0 - Me.ObjRemisionNC.PedidoContrato = "" - Me.ObjRemisionNC.NumeroContrato = "" - Me.ObjRemisionNC.DescripcionContrato = "" - Me.ObjRemisionNC.CveCorte = -1 Me.ObjRemisionNC.TipoDocumento = "Remisión" 'NUM 1- CARGO 2- BONIFICACION Me.ObjRemisionNC.Num1 = 1 'NUM 0- USADO 1- AJUSTE/GARANTIA Me.ObjRemisionNC.Num2 = RblUsadosAjuste.SelectedValue.ToEntero() - Me.ObjRemisionNC.Alfa1 = "" - Me.ObjRemisionNC.Alfa2 = "" - Me.ObjRemisionNC.Alfa3 = "" - Me.ObjRemisionNC.CveContrato = -1 + Me.ObjRemisionNC.ConvertirPesos = False Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto @@ -2551,7 +2543,6 @@ Partial Class Inventarios_RecepcionUsados Return False End If - Dim Row As DataRow = Nothing Dim TotalCalculableImpuestos As Decimal = 0 PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos @@ -2572,8 +2563,6 @@ Partial Class Inventarios_RecepcionUsados Row("CvePS") = CvePS Row("Obs") = Obs - - Dim DrPS As DataRow = Nothing DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1 @@ -2583,7 +2572,6 @@ Partial Class Inventarios_RecepcionUsados Return False End If - DrPS("IEPSPorcentaje") = 0 'verifica si tiene ventaminima diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index e3608d3e7..ea57d5056 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -69,6 +69,15 @@ Partial Class Inventarios_RepAlmacen End If objInv.Dispose() GVAlmacen.DataBind() + CargaPermisos() + + End Sub + + Private Sub CargaPermisos() + Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) + + GVAlmacen.Columns(3).Visible = TienePermisoImportes + End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx index 962eb485a..6b3f51c34 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx +++ b/Inventarios/RepEntregaAlmacenRuta.aspx @@ -148,7 +148,8 @@ - + + @@ -156,8 +157,8 @@ - - + + diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index 4128e72cc..c227ba02c 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -383,10 +383,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (GvRow.DataKey("CveCamionRemolque2").ToEntero() > 0) { DdlRemolque2.SelectedValueExist(GvRow.DataKey("CveCamionRemolque2")); - } - - - + } CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero(); @@ -514,6 +511,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero(); int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero(); int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero(); + string TimbreTipoDocto = GvRow.DataKey("TimbreTipoDocto").ToString(); + Timbrado ObjCancelacion = new Timbrado(); ClsGenerales ObjGenerales = new ClsGenerales(); @@ -534,10 +533,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { //regenero el tmbre - CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen : CveEntregaAlmacen, AplicaCP: true); - - - + if (TimbreTipoDocto == "Tra") + { + CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true); + } ProcesoOK = true; } } @@ -615,9 +614,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { if (e.Row.RowType == DataControlRowType.DataRow) { - e.Row.Cells[11].Text = ""; - LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); @@ -629,18 +626,19 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (e.Row.DataKey("Estatus").ToEntero() == 0) { LnkEditar.Visible = true; - LnkTimbrar.Visible = true; + LnkTimbrar.Visible = UsuarioActual.TienePermisoProceso(338); + } - //if (e.Row.DataKey("TimbreTipoDocto") == "Man") - //{ - // e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true; - // e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true; - //} + if (e.Row.DataKey("Tipo") == "R" && e.Row.DataKey("Estatus") == "1") + { + e.Row.FCHyperLink("HplR").Visible = true; + e.Row.FCHyperLink("HplR").NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveEntregaAlmacen=" + e.Row.DBCampo("CveEntregaAlmacen"); + } if (e.Row.DataKey("Estatus").ToEntero() == 1) { - LnkCancelaTimbre.Visible = true; + LnkCancelaTimbre.Visible = UsuarioActual.TienePermisoProceso(338); if (bool.Parse(e.Row.DataKey("AplicaCP"))) { @@ -685,15 +683,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas default: e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning"; break; - } - } - } - - private void CargaPersonalChofer() { DdlModalChofer.Items.Clear(); @@ -704,18 +697,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { DdlModalChofer.DataSource = ObjAcar.DtResultados; } - - - - ObjAcar.Dispose(); - DdlModalChofer.DataBind(); - DdlModalChofer.Items.Insert(0, new ListItem("Seleccione Uno", "-1")); - - UpModalEditarentrega.Update(); } @@ -742,7 +727,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } } - UpModalEditarentrega.Update(); } @@ -777,15 +761,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } - - protected void DdlConfigAuto_SelectedIndexChanged(object sender, EventArgs e) { ValidaConfiguracionVeiculo(); } - - - private void ValidaConfiguracionVeiculo() + private void ValidaConfiguracionVeiculo() { DvRemolque1.Visible = false; DvRemolque2.Visible = false; @@ -801,7 +781,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'"); - if (Remolque == "1") { RequiereRemolque = true; @@ -828,9 +807,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas MostrarRemolques = false; } - - - if (RequiereRemolque | MostrarRemolques) DvRemolque1.Visible = true; @@ -839,7 +815,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas else DvConfiguracionVeiculo.Visible = true; - UpModalEditarentrega.Update(); } @@ -856,13 +831,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}"); } - try { DdlRemolque2.DataBind(); } catch { } - } else DvRemolque2.Visible = false; @@ -883,7 +856,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0) Respuesta = true; - return Respuesta; } @@ -898,7 +870,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1)) DdlModalCamion.DataSource = ObjInv.DtResultados; - if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque1.DataSource = ObjInv.DtResultados; } @@ -986,7 +957,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteColonia(); CargaDirClienteLocalidad(); } - protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e) { CargaDirClienteMunicipio(); @@ -1000,13 +970,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteLocalidad(); } - protected void BtnDirClienteValidar_Click(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); } - protected void DdlDirClienteColonia_SelectedIndexChanged(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); @@ -1109,10 +1077,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDatos(); } - ModalActualizaDirecciones(CveTimbre); - } private void LnkAgregarDireccion_Click(object sender, EventArgs e) @@ -1125,8 +1091,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaCombosDirecionesClientesSAT(); TxtFechaLlegada.Text = ""; - - UpModalDVDireccionEnvio.Update(); RegistraScript("$('#divAddDireccionEnvio').modal('show');"); } diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index c5ed23c79..1d8247bd6 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -52,8 +52,8 @@
    -
    -
    +
    +
    "> @@ -377,7 +377,7 @@
    -
    +
    Fecha
    @@ -409,7 +409,7 @@
    -
    +
    "> @@ -423,44 +423,43 @@
    >
    -