diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 3da855b93..0c3f1856e 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -172,6 +172,7 @@ Public Class ClsClientes Public Property CodigoRegimenFiscal As String Public Property RegimenFiscal As String + Public Property RepresentanteLegal As String #End Region @@ -429,6 +430,7 @@ Public Class ClsClientes _RegimenFiscal = Data(0)("RegimenFiscal").ToString _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString + _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString End If Retorno = True @@ -586,7 +588,8 @@ 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, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) 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, + Optional RepresentanteLegal As String = "") As Boolean Dim Retorno As Boolean = False @@ -731,6 +734,9 @@ Public Class ClsClientes .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal + + @@ -782,7 +788,8 @@ 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, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) 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, + Optional RepresentanteLegal As String = "") As Boolean Dim Retorno As Boolean = False @@ -943,6 +950,7 @@ Public Class ClsClientes .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona + .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 8a2a42d6a..e688b1a85 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -30,6 +30,10 @@ Public Class ClsNominas Public Property FolioFiscal As String Public Property Serie As String Public Property Folio As Integer + + Public Property FolioSolicitud As Integer + + Public Property RegistroPatronal As String Public Property SerieFolio As String Public Property NominaFolio As String @@ -3238,12 +3242,14 @@ Public Class ClsNominas End Function #Region "CRUD_SolicitudesNominas" - Public Function SolicitudesGet(CveSolicitud As Integer, CveEmpresa As Integer, Optional CveTipoSolicitud As Integer = 1) As Boolean + Public Function SolicitudesGet(CveSolicitud As Integer, CveEmpresa As Integer, Optional CveTipoSolicitud As Integer = 1, Optional Estatus As Integer = -1, Optional Top As Integer = 100000) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Gral_SAT_SolicitudesGet", CommandType.StoredProcedure) addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud) addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) + addParameters("@Estatus", SqlDbType.Int, Estatus) + addParameters("@Top", SqlDbType.Int, Top) retorno = RunQuery("Ocurrió un error al obtener el SolicitudesNominas.") Return retorno End Function @@ -3263,6 +3269,84 @@ Public Class ClsNominas retorno = RunQuery("Ocurrió un error al agregar el SolicitudesNominas.") Return retorno End Function + + + Public Function SolicitudesAdd2(CveSolicitudCFDI As Integer, CveSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveTipoSolicitud As Integer = 1) As Integer + + 'CveTipoSolicitud + '1 Nominas CFDI y Metadata + '101 Nominas CFDI + '201 Nominas Metadata + + '2 eFacturas CFDI y Metadata + '102 eFacturas CFDI + '202 eFacturas Metadata + + '3 Ingresos CFDI y Metadata + '103 Ingresos CFDI + '203 Ingresos Metadata + + Dim CveSolictudAgregada As Integer = -1 + FolioSolicitud = -1 + + Try + DataAdapter("PA_Gral_SAT_SolicitudesAdd2", CommandType.StoredProcedure) + addParameters("@CveSolicitudCFDI", SqlDbType.Int, CveSolicitudCFDI) + addParameters("@CveSolicitudMetadata", SqlDbType.Int, CveSolicitudMetadata) + addParameters("@Estatus", SqlDbType.Int, estatus) + addParameters("@Observaciones", SqlDbType.VarChar, observaciones) + addParameters("@FechaInicio", SqlDbType.DateTime, fechaInicio) + addParameters("@FechaFin", SqlDbType.DateTime, fechaFin) + addParameters("@CveUsuarioIng", SqlDbType.Int, cveUsuarioIng) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSolicitud", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + + SqlAdapter.Fill(Data) + CveSolictudAgregada = SqlAdapter.SelectCommand.Parameters("@CveSolicitud").Value.ToString.ToEntero + FolioSolicitud = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero + + Catch ex As Exception + CveSolictudAgregada = -1 + OnError("Ocurrió un error al agregar la Solicitud.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return CveSolictudAgregada + + + End Function + + + Public Function UpdateSolicitudDetalleCveSolicitudDetalle(CveEmpresa As Integer, UUID As String, CveSolicitudDetalle As Integer) As Boolean + + + Dim retorno As Boolean = False + Try + DataAdapter("PA_SAT_SolicitudesCFDIDataCveSolicitudDetalleUpdate", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@UUID", SqlDbType.VarChar).Value = UUID + .Add("@CveSolicitudDetalle", SqlDbType.Int).Value = CveSolicitudDetalle + End With + SqlAdapter.Fill(Data) + + retorno = True + + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al Actualizar SolicitudesCFDIData.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + + + End Function + Public Function SolicitudesUp(CveSolicitud As Int32, CveSolicitudCFDI As Int32, CveSolicitudMetadata As Int32, estatus As Int32, observaciones As String, cveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Gral_SAT_SolicitudesUp", CommandType.StoredProcedure) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 628310288..53feb942d 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -119,6 +119,7 @@ Public Class ClsOC Public Property UsoCFDI As String Public Property Promocion As String Public Property CveProveedorContacto As Integer + Public Property NumRemision As String Public ReadOnly Property DtResultados() As DataTable Get @@ -685,6 +686,7 @@ Public Class ClsOC _UsoCFDI = dr("UsoCFDI").ToString Promocion = IfNull(dr("Promocion"), "", dr("Promocion").ToString) CveProveedorContacto = If(Not IsDBNull(dr("CveProveedorContacto")), dr("CveProveedorContacto").ToString.ToEntero, -1) + NumRemision = dr("NumRemision").ToString Retorno = True ElseIf Data.Rows.Count > 0 Then @@ -704,7 +706,7 @@ Public Class ClsOC Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", Optional PorcentajeIVA As Decimal = 0.16, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, - Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1) As Boolean + Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraAdd") @@ -747,6 +749,7 @@ Public Class ClsOC .Add("@UsoCFDI", SqlDbType.Int).Value = UsoCFDI .Add("@Promocion", SqlDbType.VarChar).Value = Promocion .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto + .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output @@ -910,7 +913,7 @@ Public Class ClsOC pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", - Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16) As Boolean + Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16, Optional NumRemision As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraUpdate") @@ -944,6 +947,7 @@ Public Class ClsOC .Add("@CveProveedorSucursal", SqlDbType.Int).Value = pCveProveedorSucursal .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA + .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision End With Try @@ -2506,6 +2510,30 @@ Public Class ClsOC Return Retorno End Function + + Public Function GetVerificaNumRemision(CveProveedor As Integer, Tipo As String, NumRemision As String, CveEmpresa As Integer, CveOrdenCompraValida As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_OCVerificaNumRemisionGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision + .Add("@CveOrdenCompraValida", SqlDbType.Int).Value = CveOrdenCompraValida + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar las remiciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c642bf35c..aa784c42c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2163,11 +2163,18 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Try SqlAdapter.Fill(Data) Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then + Catch Ex1 As SqlException + + If Ex1.Message.Contains("UK_Idx_Vw_Val_Nom_Curps") Then + Alert(String.Format("El personal no se guardó, el campo CURP '{0}' ya se encuentra registrado en otro empleado.", CURP), TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.ToUpper.Contains("RFC") Then + Alert(String.Format("El personal no se guardó, el campo RFC '{0}' ya se encuentra registrado en otro empleado.", RFC), TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.ToUpper.Contains("CODIGO") Then + Alert(String.Format("El personal no se guardó, el campo codigo '{0}' ya se encuentra registrado en otro empleado.", Codigo), TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("Número: 2627;") Then Alert("El Personal no se guardó debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia) - ElseIf Ex1.Message.Contains("TR_RH_PersonalAltas000") Then - Alert("El personal no se guardó el periodo de inicio y fin laboral del empleado está en conflicto con los anteriores, si es un reingreso favor de ingresar una fecha inicio mayor a la última fecha baja registrada.", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("TR_RH_PersonalAltas") Then + Alert("El personal no se guardó, el periodo de inicio y fin laboral del empleado está en conflicto con los anteriores, si es un reingreso favor de ingresar una fecha inicio mayor a la última fecha baja registrada.", TipoMensaje.MsgAdvertencia) GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) Else Me.OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index c148ba7af..88145dd74 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3048,6 +3048,16 @@ Partial Class PopUpVerFactura CartaPorte = New Modelos.MSubReportData() CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If + Else + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) + End If + End If + Else + If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then + CartaPorte = New Modelos.MSubReportData() + CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If End If diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 85d745c64..b7a4ef535 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2645,10 +2645,10 @@ Partial Class Compras_eFacturas sbResultado.Append($"{resultSolicitud(1)}
") Else sbResultado.Append($"Solicitud Generada Correctamente") - sbResultado.Append($"Se presento un error al verificar las solicitudes
{resultSolicitud(2)}
") + sbResultado.Append($"Se presento un error al verificar las solicitudes
{resultSolicitud(1)}
") End If Else - sbResultado.Append($"{resultSolicitud(2)}") + sbResultado.Append($"{resultSolicitud(1)}") TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If Else @@ -2675,7 +2675,7 @@ Partial Class Compras_eFacturas If Continuar Then txtFechaIAdd.Text = "" txtFechaFAdd.Text = "" - Me.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');") + Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');") cargasolicitudes() End If @@ -2723,10 +2723,10 @@ Partial Class Compras_eFacturas sbResultado.Append($"{resultSolicitud(2)}
") Else sbResultado.Append($"Solicitud Generada Correctamente") - sbResultado.Append($"Se presento un error al verificar las solicitudes
{resultSolicitud(2)}
") + sbResultado.Append($"Se presento un error al verificar las solicitudes
{resultSolicitud(1)}
") End If Else - sbResultado.Append($"{resultSolicitud(2)}") + sbResultado.Append($"{resultSolicitud(1)}") TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If Else @@ -2737,9 +2737,9 @@ Partial Class Compras_eFacturas If SeVerifico AndAlso resultVerificacion.Count = 4 Then If ResultadoVerificaionOK Then - sbResultado.Append($"{resultVerificacion(2)}
") + sbResultado.Append($"{resultVerificacion(1)}
") Else - sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(2)}
") + sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}
") TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If Else diff --git a/Empresas/Grales/Formatos/RepVentaDetalle.rdlc b/Empresas/Grales/Formatos/RepVentaDetalle.rdlc index 816c4bfd3..2d2e81ef0 100644 --- a/Empresas/Grales/Formatos/RepVentaDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepVentaDetalle.rdlc @@ -1114,7 +1114,7 @@ 0.63559in @@ -615,32 +615,13 @@ 0.5pt - - Gray - - 0.5pt - - - Gray - - 0.5pt - - - Gray - - 0.5pt - - - Gray - - 0.5pt - 2pt 2pt 2pt 2pt + true @@ -743,7 +724,6 @@ 2pt - true @@ -823,7 +803,7 @@ DataSet1 - 2.11349cm + 3.2953cm 0.31432cm 1.2cm 18.8639cm @@ -861,9 +841,9 @@ Textbox15 0.57891cm - 0.31432cm + 3.59515cm 0.9175cm - 18.8639cm + 12.27578cm 1 + + true + true + + + + + =Parameters!Filtros.Value + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + VSH + FitProportional + 0.38391cm + 0.31432cm + 1.84396cm + 3.28083cm + 3 + + + + - 1.65554in + 1.92637in + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha de impresión: + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 29.7cm 21cm 0.5cm @@ -899,7 +999,50 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAKwAAABhCAIAAADEJd3lAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAEpKSURBVHhe7X0HXBTX9v+lY4smeXkpL+W9FI0VUZGqaSbGmMTEmNh7p/dlKQKKAkuvCth7w4oFK4hIr7vUXZZepHfYwu7/nDu7WPPej+T9P///5xcOw+zMnVvP+d5zzr1zZ4bIh0JSuVwmH5DLxHAgpiHHs8pt7/IFvRJ6JpXLBuQDUhnsmQ0IdnCIySAtpIOYMhr5BWIiYTw4gmhQgpQmEUEqvAL/UrF8gClL1ige8Equ2JEg7GPyk0FkiDFMQ6ahgQB5jKKSUBljSEiGQM0jfkpMdlBOfT1KCkJFUgACxoSdFHChlD0mgcsvhQBkKpVLMAETQRmPCUHpwx5ykiH2ugbkxwrr9Y/lqXg+3HaDz8Sm8n9p3sP0H2hoIFAyGX6wx8ORX3YdCcglgVzCyZ97qviCoLmfRkKxYIcegD6NOED54b8EQ14mKkwAl6QSuZQqDhqC/1S7YFKMBZK+Wd2+6HzBCE4O8SsifrzNd6qp+JnrdDdMQ6Q/AgIQPqgCplMGZtQR30ISVkZCBYRTMtY/Z/3VkuSGboyHqkDZQSEhbgwsXiYqCMOocFUMuIE4FDY0D4Xlkee19m6/JXwtJIf45pGQKhJeSXy4m25WQym0UphkmP4ADREElNfYu/EYhRaUVqHinU9C61RCylVAKsF84p31bmgeO7GysgtsOaWBAdkAWnJUHShXJvR5wmC8yvR7/EH7Qam6T+yVWvHB3mzim0uC+GqhQhJWQsKFxK9gfXy5FDOmDsPvZT1M/5aGBgKUPogG+K3kNiddSDiZJKQCBRMiIMGlJLKMBJUSn7wZMXn7chtaQLsjSQZkUvDcmN5NQ54j5TX8B2kCZhBp7TLZoYIG/UPQ+zNJYCEJLydhVSSArxJSqhJa +QXy5G24KMR6mUoJzmIZIQwUBMpuymx7K5T6p5Sie0GL14OIJx8re3ZdHfEExlJMIIQkoVvXLmXe64IqwtZ8mR/Rgj6UpnyMqfND74P1T/S/rA/NfBeafp+6XRTilJKRcFYxOQLFGAHfi4bIx4WUqUIpP/uZr5QzKaLbKw2EaCg0VBMwGPr9CVXNSKqDTk7BKwim0S61Petz507kSTd9sElBEey0fHMYxAVnr4kpTm3poHkA0JZUYdREooQVgHAik7Nb+rTfKxoVkEg6Yfz6afxR53pTIzGhuw7marlcji9AR8c3fcE2IVgaIqdwwDZ2GDILneO39CDQBdP1K4s21T6qGkK4BWUR+3dQYqhJCStXCSkmwgOzhvRuW45xcLuhVeHkDUhjXw8ChXwJ6BZBAxxpAVX1i75TKf0bkE59cElxEIiqo+AvHBWRuucMv6OiFOPdrOl4J5oFuIBzequvUHAANg+CP0p8Fwe5kITprYeAZ8KwSa2kYCqW0s9f2nvBvgWDLC0goePK1JBA6bu70/bn7c2ub0TuAfMTgMErBaZAiMjoGZIe4DSYHM1V8M0hgMaIH/Ax/gYpP5vzTRdcq2hTwkcuvlreODuZSEHBXXi9TOgLDEPiD9GdB4JVcRs1BOTjq2xNqMAjnhxTd+nZl27dnC1VBJfjzSSQfseJXrOGT+c2pwosVHV3gYtKhQPeA7EpF+/fnCtQgpm8xiQDvspwECsnuwsn7uMG5tY04jQQENgMOZOfKWkYMguCaYBgEf5L+DAjwZ+dDAY7aw6qhx5vfKWeC0W9ERw+l0yiVhWQ1Td2bQ/zS0YqDoxDOJ36FY/Y82p/Ox/hyeUZj13uBj4gPj4TWqIFlCS0DvTI2JMfiTjm/HRxEJKlMBoaDmTM+x2/UCgJbgyBYfq1MqSEU1RqmodLQQIBEQTDIb88HfKoJqmC0Zh4vUIRiHAn6eWjpQWyyovbeH67wVfxKVEDGYQIYTI4LSr9d0UxjD7SL +JctjC4kvj4RXqIbxtQK5888WxtW0Uz8RCkMnFECFGdGCzxfXawXkoq/gy10eNwyCP0t/FgQeD0qJTw71CfI33C5jwqnw6HSCVCoGwy/HEeI5YcsYMPYhQhJaDUM7uySFQ0eHGbJHDV1vhmaR4GISWPTVqbJ6MeYBOqWfjimRnir0ZFG9RkAeegwc3rJhEPxp+rMg2AEg8AUQQKcsWHNLyIif9lv8hz1IiIn8oLr1jWCwCHxw+qYf4Fb0oOwOXrh36W4GppHLHe7CaDOb+PF+ulhO5xqlEpwzgtSww7woXNA5OFRYr+afw1iNpVcFwyD4k/QHfQLKb5S4G2oCGB1UgDzW3xBiMNUAEAPEhTGUouG29XwM48bAEg3/jKiCBgipb+n617c2est3dtBxY3GnaPK+bLKn8MvYsnb0Lml6BZywTNQtdCrhAK9Wwy+baoLCpVcZTaCINkx/gIYIAioNFIhiJ3dNKiGcbJwf5BSsvV6BIsJw0PQoRYyBO/ytF0sNj5eQnTkLYwtb6RSRV3Qcmbyd6JgFn0zAiHJ5QEYd8cwxOc1vAS2A6Zm0OI0gk4sH0DnAhDH51Wp+oH6qiH/xb3FCqjagZLzVPEx/gIYMAsroJ9x2RXOQRyIqiW/hymuMOQD5gVykKBQcJEipdyADv2DBGcFI79Rb9R0QqaS68b35bDLTnsxw+nCBW0n1YwisE0l1DuTMOJDdiMtWIC3NAnUKDjsRVnROKYZXQ/wycaDhV/jrVQGdk0YQULAN05BpaCAATqNwnmI260E58S5GX8+vcPVNZnRAF3/AL8oPI9NODTpbuimWty2ukElsxjlHJptrGLmoGbqTSaZbdx+nwfL9vIbPohKqelCyjFTxnxExTVkjEq+IKyF+XFV0RHi/XuFTTcAUhUfDNFQaomNIFbKS1djtWTBExFvJ5SSobOrxkoT6p24QyOh6AvwFXMAYQXy1oIbX1AnXUnjCV+faqM60G23gpG3kqDrbfoyB +1a20ErjUIpLsuZVa1IraAgqj5WEmDBiSW3q+Ppur4stVC65UxXmCwl8ulyEIaJ2GMfDHaIggwGl+GTCdshs6t4yVyCc+XBJeSiLA7ee/G5xnea8iu00BhQG5ZACGeAMSKRoFOc72QDKZfCV7P5m8ScuYNdLQSdOYpW7CJlNM520O6hbhsLG8ra2ut4+qESnsEUuogOQX+B0TovMJJ5eEVKiGClWg0MD8n66UotJQgGAYBn+EhgoClIaY9m3ayeVm90rJLi4JEuBtQ/8S4sMnXtnvhKQ63CvPb+1DqcjQoVOqD9xfe1QwRt9MQ88OZK9uzNYwclM1YWsYOKpMN404/4CJBkXQ3g8AQjVSL5LsSKwYvSeDeIPg+XhHCtcuFMPodOHFol6F6BljNUxDpiGDAMVPYQCchy0yo9QkOsP4cKHB4Ry9w1kz92dNj86YEJEyPvD2koN343L5IqkIYyIQUEJ9IvE324LJtO1aRm4gfg0TtrYRKAMnLWNXoms7fqFTZR1OI0ohMqIA9UBHn2jXzYwJgdc+jEiauC970t6s8VFpn0SlfxqZ/s+gZNOr+SLqqFBPRAGHYRoS/T4IFPykElScwQ4kA447MhzBIJd0SsQNInGTRNowMFAvlTyWSGrFkhqxuFwk5nV2l3d0M/EoYR4nr6Wq65iqGoLU3bQM3bSM2NrGDtpGbA1jFzQKkzbaeJ9kYg8SSLiys7u0v58vEpf3i6v7ReX9ojKRWNgv5nX1VfX2D+CUElMlCR1KUEKY4sbsmAY8oRdD/sL0chAgP5FHID8EgJJjYKGBBpDpChbCHqdquru7Wju6O7t7Ont6OuGku6e7u6erp7e9u7els7O5oxu29u4eQV2zyco9ZJq5lpELiP/pTcOIpWbirKLn+Jqx5ZVHvNbu3uaOzqaOrsYOSN4FGXZ1d3dAzl10wyK62zs6pIpnEBSE95hkOIhEzYBeCGzDIPjP9HIQgOSpnBl+KjgGG3M/AEL65LLj +RbVnC+ppdNmpuCSdxR6z1+zRW+9huNbLaLWP8eo9hmt8Ddb6wKn+Wh/9NT5z1ntPWeqpZmCnYeT8HAJg0zR2VjNyVTf2UNWzeW8Ba85ab6PV3vprvGet8dGHrFZ5GazZpb/ay2jlbtgM1uyZ9YvbUvuApnYcazyqaQvPqqiVKAAB8AU/FAABFaN1pjQs8t+n39MEwD7anXBjoECdAUrJ9V1r40pHcpInhqeUduCtXmF9+/gFHmT8VqJrTnRsyDR7Mt2GTLfD4+nmRNeSTLckOhZkhrWqsTPI+zkEMJu2obOWsYuGiZPKLGuiY0V07MBLwL0O5GaNGepYk2lWZJotmeZAPtq0+9BNKLpbJv8ptkh158MvT3HP8Nu7GWkDApjlx7h6ndIwCH6ffs8nAJ4xjhkoVFD4dHpeLi/s6LFPqHgnJIf4FBBc7JvumCBk2Hs0Lk1N11RD30HLyFUbPT4QtssIQ1dw+mAQCDIeAeGGztrGjlpGePrcBm7BSEPWCGN7LRN7LfATjVy1jJw1TRxHGLG0jQAZbMgQ4oyAyMZugAOD9QEdPThBcILfPCIgC8cmfsUj/XKXXS5IqEf1AIRmACpPDRs2iKnoML1Av6MJqCpAjxD7E2qAapHYN6tmcnQm3jiGAWFkFd4vCCl6Oywn6zE+atIrkXxrFkCmmanOcdYwBvUOogV5O2kgCECo0PvBDQQcgFDh9BkEwKYJIodUJg6AGE0jN00jd21DwJDTSENwG1mQIeSD40kTF1V9R+1Z2y7ez4FCm8RSg1NcElCgHipQDxGSYMAl763gbEsYoNLViCh5XBWLK5jwBFs1TM/T7/oEYmXX6ZTJDxU3Gx4rUPHNIkEluHQgVEDCynCuJlxIvHnrrpUxc0N3MktGGlsTA3stQxcqQpaWMcjPCaQ+whBhoW7ipG0Ip88jADYYHaiZuMIAAdEAIACTAVrByFEbkeQM4wgcSRo5qxu5k0lbltqHS+kyg8jsOuKXR8Jr +VMIqSHAZiagi4VUksJj4ZI+PytmTXlvbx+gw8BYpqhHdtF20acPE0O+YAzq1B9r2WnXrT7E8Lb9s4leK+j+iHB8v8eep+vMIpwCXAYZUjg7JuFKJg3tIs37XcTJ5+yhDF03Q4caumoZsVUO2xmxnbQNnjTn2qnMcNAzY6rOdNAxQGWgasdUNWGr6LDgF26GOpw5a+mwwIlrGjhrGdmpw1cBRA4yIofsIQ0dQEiqz2G/MsUkpqIDi+D0Snf1cnKEK5mNlAngkKA8fUAktw6UrASWEk2NwOO9AYUMbRQylfw+Cvyg0CDWcyh0+3a3wsXNbujfHC18NTCegAICtEZWoBnx474XnsB9VnCxt23Cl9K2QfMIpJl65C84UdVAG5pc/fu9re3VdG+jK6ibOowwdtWZaqM22V5sNQgWt4KI6y0FDz3akvq2GIYtMt1CfZTXCwFJ1prkWAsVx5CwzzdlgEZy0jB1AkWjOtteaba5tAD6Em6aJnaaxPZlsaRl4gVZQ7vywmnhlEN+8Mf45353iRfMeB+fX6R4Cf4VH/MA6gKKqIIF8Dd+Un87mXq9ooTqB1hLHuXhv8wkY8AjaLwGrgYOfvxgR6L8DzB0aAACqTDm/u9/1UeUHEcDNfNCxKmHl6AT45L8RmmZ5qzS9pZfpVjBKfNjU45hYPvFgttquxH3ZdKmxXO4WfZVM265uyFaZYbPY/sjt5OJrqSXfWO5V0TEbqWeze//t25l8ryN3RxiaL2cfiE8ryRTUnLyT/+FCj+8s9yZml3gcuKlubAtpdX71jnuYH59ebLg+XFXXVnOOA5lh8fF3O0pqW6CUlPr2f3AS3wjN3HSz+HJlVwuzhl0uL+sR7UmtmRCdi4uUAkpUw8tRK/gWjAvKW3OzIv1xFxMNx7o4xYSjHgYNDA6wG1At+JciAs2WYO9HBdAskYbnPp6+v4A++MFXCROg+fcrGBucu+lq8cP6DkUvgTEDRQ1zVtorCsgsd7+R1dyL +7nptW8+033aSGeZkpsUC0yAmzuHraWTi2k8WOTd3or8WePLWWpfI/gFZZUPrhXtZBdXNhus52wNOwaXE9NIRBvYwFPx8nQ9NKv/ZPppMtlI3clSZujX02F0IEcukUSml7rcLM1r66WNrQCBKqUyp9gs7+10fVn4YmY1rHcBXADc2tBJw/G54NiuxopTWAQnkjfiHtovhCKEAZ39BEDBdoE8+cEbQ9OWpIlXfbOJfqIKedhnxKRwdkLPkSuG1auXCbzpBj0NvYBTwHE4wFNHQJpZ0iuEKBhy7lKKps43o2Y4ztk7MwjVnpZVNbxha/Oq0F447xQPfbg9KSC2CY3bgcfLOoncXuL5iaGkTfBZCridwVXSsyAQz3SWuHb3ocf5gE0GmIiwM1nDaOvuh7H6ZtKWfgSAU2A9SxNkhBplQQeWIJrO13+xuxdvh+XifM7CAhJWSID7ge1o0NzyztonescQUNA2jFigsaJv+SkR6pbL7dd3LLwtG+aUTfy4u+g6vUAktGRWc+9OZkjhBe7eCJxJkLGUY9bFhg3PgI+CCcpISPZaIRJIlltFkugOZbO4WdpmGy3/eFhh8PB6OH+aVvTHH4m4GrkDhlVUbrtlFPt5CJps5hF6EkPvpBR99z/7b16xvzXw6+/BNNN/bRIEmGGNkd/Z+HkQYkElR2EC0WOzLKHYapAyBQSH1a3FWOa2xd/vNsnfCcjWCClXxmfZq4s9X98n47AT3ZHFTmwitIOaqaNJfTw8ACA6X1Lztc4948UiwQC28RC2sjASXjwwtcM1uYt40AXzFPi8Twx76CmU3c58GeceInZpVxe1fxrWMuppOdK3JNBv9Nf5tdJx25W5WbjF69TtjrpGPVi9yiO4QYd+ramr71iKCfLyeFXYFTvtF4rrmjsrmjvrWTihVNCD/0Wof+Wi9/rqgHtr5AQR4/wIrQOVFi4QNTmidFOoAfqHOFAoo1zNV3R/tKyEB5SqhMLgV4tI033wNz0Tn +W9w+vMPAIAHSPhlI/HWIlHX1eT4Q/gMfAC1SDSpXw+cC+OBazzrBj+YNvl0AODogAa5CH0N+KToNvYRAwLt4IHu8iiFd/eIFliFE11JV336koc3dLOz0ElwnKu/qE81d60MmWxBd8xWuR2rpQqPq5q5Pv2PZ+J3DtL2inOLynEJheUUDFCsekC2yiiQTt7w21/YGtSC02zPuG2xUeLhBlRAZzE0jBAG6/1h5HOhWtv94kT8qpEQltEIFhgzo6HBHBuWuvFaaUtcuwdxovbH+THv/WqSYJ0ht6lkWJ9D2zyT+eTgdhDqzWIOTNf90wUVhC/p7SJTZykMEAh4BPmgIsh34jgdhFx6o6php6MNIz5lMMXcKVgzqgO5llow2slLTcyI65uTDtUYr91Q2NEG4jd9hC5+jcJDKq3jnG+uRMzcv2ubfL0YV8qP1XrxroGP1+Qb/Tro4XaQUFQUiDgywChjIgFNZIbAFTV1rr5W/FpCNIx1QchH4hgMVn5wvjuWfF7YqHB2q4WhrxIwi+asRUY6t5OAxn+A36h/LIj5ZJKAMp97QNywe65e37lpJSpNicAW6HuwCdDLgFroJ1J0CyTwQ1BY2tsFxVWP7+B/dyHQ7OvsLB5azV+xuwXl+LMkx9CJ067e+9lzhevSf39h99K19UQU+y2zmfdDc9xgcpBQIx3xuTcabf70pQETvFC8Cx3C6pYahs8qUbSGn7kFIc0/vzZKKFnxZGhAoC2aIS0tABGBBZT0SGCC8H5aJ4g8qVQ3j45yST/7HETmc1JoGtEQUNDQy/uMOM6THfy0i0GjsCcq+VdUncX9U9R5OEuSSkBJVnCIU4hxRRM6OpPIKdM6BwCVghtP4z2/rN7vE23ImraUHu5ZDUCyZslXTEJcMaRmzVQxYI2bbxFM3sLNfMmMZh0wy+8e3LsKW7vq2zupmuvy8tvmf862cI9EnKKqoe/trGzLBYoltNJwCLXbYT3QsRoBS0bH+aKGTsL4Z +SvVOKFx4IutOXadSZjhAZCTYIpXt5TboHOQSGOkEFamA+GHzKxoVmLfpemles3L945NVEX91IihG7D20YyuhkNrUvTquUDsArEMBPkQcISSBpWRP/oyYgqjc+jZFF5S3S6UR+TWfRuT8fXfS/TpUFckFla/PtVadZatt5DwCpwgd1UycyXSr31gHrjzI9dx/ZaSBg6qe82gTR499V1MLyjIENUevpRmu3E2mbFrsdORyUi7ncPxrX9gRHVv9tSFnbmWcvZWut8ZfZYYdXYUGxmWbuc8JKKiuf2BmdMZY33THB1Vl3Qp7BQi9LGydf7ZEzTeD2rUKEl5DAvhq3jlfnuCB/hcxUqdKX+EHDBMFAX3OA49RH1ALj10E+svpkmbjIzx81DCoGO8ahFSCQVX3y/zqdOHVyrb4mvbvzvHU/TOIV4bzI3xHCWiHxfb7YLAHAtM2dAJboGHsrG1sN9KIpTXLSnPmdvVZ27QMHEZAuIGzmq7lK8Y2Y790VJ9lrapjr2XkoqlvrT7LQm2WrYaxg5qJi4aho+YMsxEzNo80sNQ0dNVCELCJHvtVQ6uELHym/VJFq6ZfCtmdqXuAe7CwIbmpa+ONkjFB6fh0c4hANYJPQotgCPDR3vzg1JpGOhIB20EVBiJgGAKDRFCPMiDAH2ANdhLqcOHW0CfZlVL3QRiXeOegUo0sh7ED8eeODeO+HpaLd/B8iwyOllZSFp+Pz9SYYUEMXNWNd2gbskFsWqAP8Hawm6aBKwHRGtvTNQFOmnMc1I3YqnogVJYqGg68a6xl6Khq4KpquAPXHxg7aho5qRs4qyKYAFK4vEAb1xY4k8nbvzEL7RNJwBHZcFtAfLnEv3B0QOZbYfn4gpywIhIuICFlhMMdG5i55UZRbqtyfhA1HjQWG4itQ28G2z1MeO+ASl0hd8bTg86Cnh8+YYCuWXpj75q44pFBqYRTSEIrcZwdAowuAV6P9ss7y2+FOC0dPUbLvMhUS7U5LmrG +nqAGRhjZ4x1kI1ctwx3aRq6aJo7qJiy8c2jMVptjD5Iegbeb2VrGDrDRO8jOoA8AJSBsen8ZTp3Vjd00jFwxGoY7jjJ00NB3VNU1P3D5ERRa1C76JCoP5wFDK0hQOSr/0CoSgE/Lf36i6JKgFWuPUhcxK40oQRPhEFqrDPjLE2FED6N8OgMARM0l/QUUiPHGGo7KoDedKX1sfDwXva3AYvpmsmrizd1wQ/Fk+J5DN1QnbxphYA/OoLqJi6ax6yi8BeyijkuMnEDeWsZOcAzqAfa46sTIWQOXm0IXZ2saO4LyAHmj8sCbyC4IHWMXDWMnOAZk0PVFeLtZy5ilbeJEdG0mLPasbEKncm9egxonG59+Ad+F3isavzeXk1FbQ99wgPpfKpZg66BdVPQI9GH5P0P03gGwRqEPKMEPNZkK24BqAhkIVI9vFqU3GME6cPgf7svLbUdnO1tY9/pXMPS3VZ3tqKLvQPThwF5NjwUmnMxmqerBMQaS2aDYnUGi0LPhQMME9AGEQO9n0XUooBVA6mACXNVnOWro2REDBxU9R9XZLJXZ9qqz7SA50XdSme0IeZJPt1oG4jRzh3Tgh/PFaBQ4Ba8G5GyJ5/NaFf4/nfzBO0yoD6j4gaChSqPw/4KYajxfNgZhGPwPKixKVDaMMJQb/j8PY8UVSsqDwQAkenf0mZCniU4WPZ0H0HOnQM+GZDZ2r7vM/9ueZJ8M9Acl0oGtu/drT1s3do7zKyassXPsxs61Gmdi86qxw9g59q+a2I0zdhwzx+7VuVZjjezUZjtoGYG9d9EwctOaY69lYkuXn7tiXzdkaRrv0NRna8+2fW2O7TgTq1cgKxPHV0wcx8y1GfuZ9VgTm9eMHWi2dq/oW739tWUqDz3Eu3U9bwcmzzmWG1feyqilpwkhDT+0Ccp2KH//HTFxBqPhwdPn/4GYqDQ29i3csD+hjOGALnR6KjcAJZ2axaCBqw/Sd8Zc9tl/6erDLGqkqS/LbJgA +IuO0PW0NEvzAFarIcWNiDcikJ68nu+274BZ58XYKFwPojb+X0u+sLPodok8RYVbdMnlCRVN9H47NxGLpo6yS+6ncBNhnlj7IKIEtIaM0IbP4fmbBvYzCO+lFdzKLE7JL4pO5ust9yXQ7sBdoGgxZIwAQqPBdNY0dVOayVQxdR83eyjl8LTGPfyej6E5G4e2M4nuwZRXezyxMyCi5l1l6F7LKLEzKKLmRnCusrYeGi6AylQ0Vvco5DCUfBtnP1Pl/SBD16dhDSPk8MTlhfUBsA2BYFRWj1ygGmMtUY8EfXEX/ehU7iry/jny4aoVTKBMZQzEuw3yMisRkAHnSMOVGNR0IRSaft9GPfLCK/HOprfcBZYKX09BAANWF2lNvi3EfX+x4/4EOXE5TnWqpauioZuKApsEQFyWj4QffcI4zmWS+1C5S2cr/MdFmU6kzjGBCGJ4C/HHESyO8QIPxn6XB4Ke3IYEJmkA3hqAO+A0IOG3rFWXya+u7KV4RvVT70wIGQbDB/RSZaAcu9rod+zEaOueQFS2dYQ2NTyODrKF1mAcSlgkSQflAAd9a7CVTbMgUc5sAfKgLU/wODQ0EgABmKgEdBZlIIhOfL6jfcZ/v8VDo8UDgniTYkVjmmiB0TRDY3sgJT+I209cMUF2H08xAnb2iuWt9yTRzDdQEAAIX2IMDOMKIraZr+85n7KxCnEXGFtOmiuWiRGHF7vhs19uFu5OF3mnVnPSqkIzK0Oz68JzG8Jy6OMFjMd4zYpJg1Si3kGg9sRtiVgqCi0qWKQiuMYFPIsEpLRwIdgh3ii8m2nPJX06YnMkCNqrA4ae2sW3RtuBX9LZ9tsGLvpRD6ZpgVKZTIW3xOEUm2RAdq3XuMXiRPp5Loyk22NF6oAJRAl9ByGd6Cvj63iKcTLUAMFn442odpKcY8TQNDQRQU8ptRXW75fKfY0uIZzrh8Ig3XcbjW0C8i4jLw+mh9+NKa/GWElZSCgoEQU7pxK10remm +6rOh97O16HQC2AJNQ1cyxXTX/ls0Cj7uSEet0Expc0/vkUyBcfQj4plIdmcRTr4KJ0+Fk0/8ColXzpwjOd1SmjdlJWUr7imX8FehIBEgQBBzMDI2hhItiJ4wodTo0hhYARABvTNJQyAL1OqKhM8QXFIcITERoQIQWUJvasvziype199G3luhMWPNvSy8I0qLwLgQFU0CDdi66wSZZEl0zNfuiIJTIKwxNoh2pQEY7EhhxIuNhEAmEa2asuWYCRT5o3kEmWINOLD0VbwAhCZ4CQ3RHGAmUBDTXCmMG5fG4ctq6YhRgNO0IZWEk/3LhUJeJzYbagVtgz3sesSSXnwTkbxLIv1uWwiZbAHi1zZ20jJxxFHfNEuDNT5NuPALygCmI+PQiVJWu0Y0EJDbMPUQF2cwA/l4SxBKDCjVP13WjW/FpWyAePgDFcRMaFaKMGAQCgkYRS0aE5m5THXUk5g0LXILcYGE+UA4bJASxYqpFTSYFbMNEkTETAbE4AqgXDCHAegScY/y2aGnzidk9yun3jHVs4m3eR0hk81BWa51Q00AhBexAUyLYM9siATFRTzHumDPoW2RDAwsBBDo2IE5sPI+oshmkJvP0lB9ArRPUB7NbADcwtXXSgEEKqFCnFcOKBjtn+74sLKVurrQfimAANcwgpAGKtu6TuXxmYUql5K42rPM1PTY2qAMTJzU9BxH6JlfSQInVt4rGyhu7ujGdb9YCiIO560QPUDlPSL3tOoPoopIkFAlXEACeZ+dLmY0Ae0BmIqy5SWEV3B76WUIxPDfSaqgl7HwmTBFLk/oyVVGLShOKDGRXyzRzO8MrrfQsV3tdpAGQJWhgYq0nWJpdUt3K336iqbGS8AdZMGz9KNlOD61N9XcfA8DgpcVRmmIIEA2QnGKEqHstddBExTgq+6DBe/vyzpUWK8oiOISOxQoL9rY6r6BH49l3KjE6cVeycCPtuC2WGvhvJAzmWy2cddxppUJde2WsQ+bmIdG +QPdhC0G0IoSEsg270oRkTzYqngDevFMF3Qzm8DJAlOl58rtZAjvfo79aBS2zD/fdf1XY0A6BuCIJShdJ76QUhh+/6X/w8tHLD4oqGyEQCTuWHPB3M4W3Z/9lt/Az+2PvFwjr++Tyvadve0Wc7ZHIWrp6UnJLH2YL0vOFXb1wRdbS3pWcDUOhkiJhLSgJ2Fq7++6lF+07datTLCmpaXENOOm971KPVN7Z13v+XtaRuIyLd7Jbu/DVGkyDalq7fI5cXWoXtsw23CXi4memoWSWLajGVa6MJgA2IzeEDW279l39cr3PlCV7DFf4eOy92IEre2n/psju6pOcv5PlEXEp8vSD1KLaBaZRuGhjqvnW3XiP/t/QUEGgKI8hqMKG67gaHd8mx8lzS2feco7Mpu2jkbHrIeu75HK9gzkLzvF6aAYw9hthZKWu50Sm23zwvSO/GpeWgBu59GrRpIikSjreo7kwXRe6EUIeU8rloZlC4p2BKx78ir4+U9QzaOogAVXu+y8nvWJoRSaakn/BWGsDmbh14i87U4twcVtVY/sS+zCtmeZkvBn5eDOZvOn9+ayLD3g0vayyueMnx32aetvJpK3k441k0qb3v3Nb6LBvlL4V+XjV9eS8pJzC143NtKdb/WueU14pTpPEJeaOmr1dc/LmlU5owkViid/hS6P1NxGdTWt3nZ6+zIe8tYRMWZcjqBc+bnr7cyh0yxsmNlyBYoV+eV2z8QYfMmkLmWSGI7pPNqvpO6gbu5JpFqvcoimrANcD5xOzJy12J+M3kY/WYuSJFmTCusgziTQPjNXS1QcVUJ+6FU3Jp1vGfe78+tdeGoYOZMr2LV5KENDsXqQ/BQLA5+YbDAjQFeDk4WvoaFGok0H2GBU1OVp6QMxXZ4tVvDJP03sNYF9XsGPIp6YqOpsjzuNSEaCLFS0jOBlvhWRm0CcJaS64g0OKJIWwQzLLiU8mgsC/aP7Z4kEQMFUDQU5Y5EymWKobORltDNJb +zSETN2hM3XAmPg2urnM/TCasJ7rmb81z/vQXL00DGzJxi+4S99aOLtAhy9nR5NONZKbtWGM73SXeYwyd6KKm7WSa9bem4Q3NbXfTCrT0LMlkm79/bp9TUgUZXkrIx/X147ctcVQsgKhpapu3LQwqQB/QNv3KNMwu6HyhoJZf1/6PeTAMtvrbF445fASQSCrb6BoF4lSb7app6GC8zvejb3eozAB/eReM7la6QobYpGx+xZtztpK3V4/Wt9oVE7/vcuqrX7DJ+O1LbKJpy1GB+R6+Cc0k0Kn0rN+YZ6E2Yxu0QtPYnUyx2LTzv2wOngEBiHdbPIAgD0Hgm8PJfQYEcBVRgLoaNvSPf7hcRjzz5hzj1dG7jin55RozNs/Z4t9DlX+DeGDuCRhlFIwLybiKqxPAjDBGAf8pFhTCDssuV/HNpC+zLFoQy++lYAOi2kJWWPn4nXmOYA7f+da5oKa9vq3bwf/0+duZkIWwpundr1kgwk8X7UrK41e0dPxsu49MNdWevTkpuzRf2DDWyI7oskbqO0bFJjd29B25lvXaZyxVPTsyzSbgBL5x83Yyd5SxI5nBeudrVl5pJYRcflCgoW8HVnwpW2HC4d8u8BKZaA7DvOWs6C7F85Dy4vLm97/ZQaba/P1LhwyaNres4c3PHfBljtMtf3GMau+X3M2ueHOeC864TzVf5hxFWy1r6+6NvpDy3cbgEzfwFcB9YumsFbvJ+C1fbY/oQwdT1i2SfLbOj0y1Vp1htX7X0Ux+RfSlh299ZqM+iw1Y3OB5mJbPVO0lNDQQYHd8AgI0oaZ3KAhC8bXEAc9qAhQIRMbhFYYCJ5Ze4xNfnopPjh+db4ZgR/+jVx+hPwjkn9mg4s0lwVVqAfnRhS2YGv1CGu9ZEITnVODTsQACv8KFAIInVYJCJJ29/XNX7watOM7Y9n6G4m36DN1O4440tiMTLC19Y5mQPdFXyGRrUAyn7+fdSC9S1QNPyn7yYo+2brwB0T8g +m7vRjyoDs43uOO92N5U3ysSR6Dq9M8+FMQeXE3mas23JZMvfnBleI74t/M6CFImOxYFLKXA6gJZTXlzR+N43rmSq1ZtfsNKLEQTH47PIDBui76Sht51ZUA+0BLTRNFMw56udY6j+Y9zwJ9Qj6jcBC/Lx5m/NY0T02uMO0dSfvaAhb37hkF+BhhVoCeB7igWMDtZ7/JdBQGXBHNJxlNkdIf3eQbmKT2Zw/nMgAC8JBtkiaqYx2er4UhJUQAIEH0Vl59PnWUT93cwjRHnt/f/al08CS/HthN4F3ml1mBFko0jK/CBH4CQyt1KFw4Cg4PsLpfRtd0joi9JDnwM3yVQz6BkLtga100VvDH5i76WrzrYkE7e577uE5yAtLxiUMyDIuZyUrwq+wjRbnd9cG1txvWQvjGa3htAXblgutkU37V46d7SJLZnu9M6XrrklCIKriVxtyHOS2a/sQ5gjraEF5wwYYzLdav9F7LvABdgXVjS8O58NKuqNz53SCtFB8YiIJdPMiL7jaCOr5HzMDcjc5wQCaKrdWhaYA4CUBF1jSuVNHbyK1qLHPSabw8m/ti6yOAQmDKi2tReASyZZ/Os7l/JGxWrQte6QD44O1u34L4NgMCP4QYZb3SvDNxaEC1V9M8OUIGCwQv15HL5CUIdcfojX+ElUNi5ECK8GfWB6k/nGMfYbcBU3wSiDU0AiBaphxYRTuPx6uXIpICNWJk8FCKLyqlX9YHQAjkjBootldA4WCSIx0etbu2cs30WmWpIp29yj4ug15OOZ+HQ1cPqmbFvjdiK1oCbs5L1357mC5dY2sMwqqbqSmKU205RMd5z0o3NTK44moHK/WEaidZ9mvcIFWXk3NX+MsS3RdXznSxcGBFcABPoWZNL235wYc4Bk6XsWHb3pFjGxqXhOS+dWNv7jWxcAAZiYVC5+IGSLRzSZslVV33GMkWUKF3UDkA3nJIJgmv0KpwN03I8sSsorX2IX/skPLu9/6Tbl591/ +/8oTVN1PlvsklL2VjR0TfnIlk7d9uIBVRt8aDLTc+QgMMSCrtW4MOhnmvYT+FAjgxyYBHHX83oEaJyuS+wwIGL8QKLmpe8mlIm38RFqxSngZPgYUIBjlnXK/Eh8tBbpf0TR2dyLx4+Nnr8L5KiGCkcG8VdeK01sGn39h8oQMMc/o/Ccg+PnSExDgVdQ9GOf4jUfqM7aCtF41srtLl6MBnY/PUNezUDFkjZ3jMs4EFynhCOLTjZt3noShXSqvDIRBpjv87QuH7BL03pv7+mev8SXT7CCabcAZCLmXUvCKMYvMcHh7nmNuCYrt0oMCTRg7TNr2mxNznwbJ3PciOIBEd2vMxYd4TquEIJgPbr/NuM8cUvKxSqtdAATbVfVdRxtYJuYrQeB3DtWDjuUypwPUqMof5gje+9KWTDADHaY+ZbPm9M0aBuBGmP1gEymmTBbUtX/8ww7I6l/fAggQvkBLHWOoOjRf7apEJ8Z9CQ0dBAqCQwSBQ6KAeOeRkEpVTuY++gJ7xXwSjVvdJ3FLrn47LId45+KHsPAlEuAWZL8amLnpppCP7zuCRsjKu/oc7lf+IyQLHxqkbyvF2UBO3vuRWb6ptfW4CBIIZ/qYGsRwAQSAPAABb/EV5gXXDIEoQXdCJFm3WPK1eRCwkkwx+2yTH/M2/cv3M7VnW6gYOWjoW4+aZfbmPEfj9ZyAIzc76aO04MHN3xaEw7AZlp+t54SeTljmfoTog6o3fcXE4l5OGcS5k8wbbeQAIHjnKwfmgarYpCL0CSaZLnNS3O8BMve9gI6h7sboS/QF7rTaRRUN730DmsDmlbl2SbnFELLe/QB0X1UDl1FGtnfzMDcgc7/zCIKpZisdFdPGK9j7yQTw9p2+2BIcl1x0Ia3o7/NhlLF9oU00s3SmpKr1XwsBBBbvL3AVKDXBL3ZR4BBgPi4MOhXO2Yv0x0DA/OLeBb93gN4ceGrRPPoyM+rSi+SyU/zmOYfzcOl6UJlquBCdRz+B +hm/mgnPcuErmAWcQF3X9KCXVdy4HhRGYTfyLcZ1ghACnh71zvzjOvYALBWhz6S6moFYtAJCHn8T79YoABYiEqgJtEE7DYx1uZBa/Aj17FotMMw8/hcKIT+ONMbYBZhlsjHyYV1EoBGNKPQbImE475grqPlvrq4EP0IEJsABvYLSh1cxfdpy+m81Eu/OI+gS69u98ycqhzt3FB3naqAnMlyo0ATbIDHrzJEhutu9SEobRavOqHr/7LRuGDK+Y2N3PLoQQdtB5dB30WdoGNvfyccAJZOZ/mvoE1stZ+Pxue3e/zm97yGSrccasZGoyalo63v/WmYy3WGh9kNEEvPKmD0DHTDF/9zvX0gYEAQzNFtlGQMOhFcvYoFGA/vsgYDb5DvwGEs4TAAgO8FATAGW29K6PKx0RkE78uPh8Oz74AZY+T/cAd29eYzMzrIfaowGHP6gchKAMuuWyE2VNc08UoHbxK8U5wbAy4ssdE5Cz7aaA14aTB0AHC+rV/RUg+O3qUyCAbDBL4ICCrAPOQs8j0xym/Lqzpac/u7j6b5+zyaegSAftN60MJMPH7LAOrd2i/XHZ//rBEyQ9xtjFbV9CZx9myLDw9sO8USY2RBfMgXNeKZqMmw+4WqAtYIjozJhejIwgmGwOjuHei9QnUICg4V0Qno7dK9Dv0wsg5FhcmpqOOdFjjTCwvJlBPyMGo25wDHHa2H4ZBQH4N5MW7yKfmo5f5Mk8plFe3/zugh3kU4vvrfczjmEmv/6dr2HcYf7Bd07CZrShEPy9TQSdMbT4zSkG+wTlzUvpz2gCbJlHEo76SES1qv+j48L6donUO6P244hsOnkgAA+ABIHTUPB2WBYrSShQznhjnwWmIgSAZWL4pbfb4Srm+VgkDcyomxSZi+OOkFJV5vOavtwJUdmh2XXdAwOxpY1afjAuRRAsjXvq8zfwR6d+Wzr7hVU4JVX+uOX9Bc7o3htY380pq25sf/cbJ7Dfk39zb+lWQEo0 +eC+Hpu3s79+6M0J92gYwJSoGrE9/3BV1JglMEQPT+Ef5+F6mGU6vz3HMKsJ+eeFugdosRxD5Umdmlhdzs/A7RSZvhSFizIWnHEMAwXwXouM4xtD2VgrOUXLLa9/82p7o2anomjqH4Gq51j6J/loOmQmqyHQlax+EtHeLdJbtAef0rXkORZXodWWX1b/+FYt8uu1nG4wAVFTd/N4CJ6JrMc7Q4nICwquutXPyrx5kJgvUw3JWFNNC6pm8hP6gT0APcLcTQICfsqseGZyxPrFyIS73ywJ9js99wsYpHuOXvepK+UP6hjMkSES7PrIFj4GzaOvpzwC1+xgKEQvb+2Do8Xooff1MWAkMHPCFKb7Ziy8Vb05s0A4pxs/f+PKWxz37cUyZ9MzdVP1VXpO+c76RWnont/LdhW5kBozszW6nFUkGBvSW7QTVra5vs/PArermriuPSn7YHhB1PkEkoT4HiKGnb0fo2Y0uh2et8CYzrMh0W9UpG/aeuYOZy+VpRZXjPrMms1zUZthv8zgS95A7zywMdAbgbPbaPa3UtwCy8D+JXudU8/0MCOjkP6+y8V1Q2tNtRxraXE/G2RGoz2JHGM2bq+qz/z7H1ooTu9jhgJqeOdG3B3OwyAadDHBz5m0OBBCozLL/jXUg/EziF9tCVWaYq+jaTPrZs6wesd4tEpts8IVhjoqe3ZSfdnofuLnYbi9gghjsgMHIj5b7BmHO/D5HQwcBw2rcIe1+KKDfQKrUCBWqBpcSP5BNOZoAv0IVnxzj43mnS5uUjhv0U/TaQNj4jgGqnKBStF5gxWFjagnCYG6S4qX42q4lscWjOOk4gASvAgwEvkOjSCWsDG9d+r7kC6m+R6+Qj1eQjzdrG1qPm0tfhPnJ1i/W7WnpwAF0+NkE1anbyCRL9ekW//zKWQtGdx8sGzFzTXxKLpN8kBpaOk13H1eZCUNtM/3lu9qoGusSSX6yCiYfrUNgTTNTm2VKpoAjie/pBDdiq+eR +lk6E+7Y9Z8kneANi7zkcHTBOfmH54ze/dICho+oMiyuJiuKuJxeMnmlBJoOJsSETTMkn2wCvowxtAARjjB05By8PDEijziXgVPcMe7iE2Ppkyyg9loYeG0y+yYqd+XTyMebCIxXQPfjKTwt8q+gnW0cb2Y2d6wBxRulb7oqK7cW1gP93QOCdUo43+EHtg+cfUYlCCionPjnj92b6ZVRX08eKoWzwE6mQ8Q4xyhk3gAMqKDhlJpaUOYPLIMGbh3BKQ3pk0uOFzSaH8vGmUVABfbakHNSASih+MHv1zXJkMBKaAyAAV/TZB1N+dtU2MB+pZ/nB59a/WAbxyhWzT1CTsAsJs5fv/Pscy5F6puOMbfRW7Qk6dacJhIdVo3WizgFQZVPrRz/uIlNs//GNM7dC4fGUVjcttQt95yubVz93HmdiO3Ol5+5TCbq/eYyaYbbWJbq2Cbumo//Zcbpbx83ecOgyvryfaVtpRcPUHxxe07N828Ti+gN8DyPtCPKj19JmLfN4fa4ljBo+/HGHe0z80Vs5Exa5jNHb6n3wMnSaPqnM1uf460bbVWebjtS3Nlrje+Imd4FZpOrk1b86hAlqGqDmoFR8DsR98o3t3+ZavfG53YcLnaIuJ128nz/+R5dXDbZ47D3bJ4JRG5b5Iv0ZEOCOkw46Pxc1c3gpvuTMm/daUObWO8KcDkX/B28L11hSkUMKbDUVFvKF/gDjKY/wOpzRd1DAP7UMgAcmAY42xV5pVR/tTadv0yynPiNogvx18ZWDIIAc6coDjP+4pSMxv/xOTkVhZUMfPq1Ei8GxCEZv7uwGy5rIq8wubWhVvsIICsQluTI0DPQuOETrwduAk8z/MZ/NraBjHxouGhgorG5I5z/OKXsM6SGkuLIhIasUX/4oxxepVNS3pfCqkgsrHre203xhNwBKO5dfl1pYn1lc29rZha1W1gcgmFFUncyrqaRPdgOV1DQ/zMNBKVpJGim9sPL0nZxbGWVNnTiR +JqhtOn83rUeCybHatNWV9c2ZpXX5wvrBfIT1LZnF1ZgFVAJ/XkJDBYFCcrRE/A/IqMSH0WDI7l+i5ZO16GzBdcWXTSEaEx0FinGf3mgeSPRYmSM0F2LSIhTRUG4MLmg0WXZr39b4ytcDMxXWwZe38WYNkxVNBlYGnzOhAc/RYLZMWc8Rfb4dLqCdkuKH3Ols/62MIrwlPdls+gqvpm5m+lkJ5JcTwoiZtXxCgBuGE88QFId/kEAJ4kFipjoYguuQ3wvF0WcpFEQxRjN5sVaDeTMLXV9Of0gTQJm4R14HZlaTPZngFsw4mBvFe9zOVBf8bOzFv1vq/5ywKMiTsou6V9jTb1S2/XQmXxVGiV4ZG28pvrRKufxE/JiM1pI5ZgKfI2UokxBN0tMxq1s65mwMAD+OTNxoG6xcq0mJ5k258GzONPB3i/tdYpIMbi8jRQTlMZxgsv8SDQ0EQAAtsC1UKMjxkFTBe5y7rAeVAqVjTC9JgJ0vAPyPEG0tZIkYgAxpn8Ae2y2RRvCaJ+1L2nCDi7dnoDQMVqQaOuFwBXgL/z1icWNb58X7eUZrvMl0CzLRasYSz4p6xQz3/0oaKghA8ihd1IlU0hk1LQm1rQp5K7o/iAK6LPKUCf4zxECA+nN4rwTyFWNHQDzAVV57b1J1O9SD1oui8o8SU1v4DzgQO/lHJ61Z5vhOtUlbZy73SinESaH/Eqr/f6ShgmCwuwHPFFNslNCNw4v4jBLO2dLT/wIIgKAMGCygiPFvsAbMISVcy4r6idbgjxNTXZ+DceTNJWSaxaRf9rhEXq5qoh4WWqFhEDAEfFZ0GWA4igOPcUxPbwHAP17FZeb0GFP8WaIyV5SEuUJBKA+aNy0Pf9F1ogrjvwCCvPIGp5BzZ+/m1Qw+2AothSYyl/830lBBgP/owcMBDIUGZ3rxAgQzrPrvcosqekW2MNTE51LwmCkEg5mLsMd60dA/QJjFkx8FQcnQRvDVcSrz6Qv/y2jIjiFI +AvhBGQI9D58sYLw2CgamgzL0HM9eZOGLEZhtkBTHylDYUTwognDYiGDEZ1TQHKDxUYCA2f97wjg0HiajlUdsKUIhX3xQEOwdELaLuYrRFfT08e/R/yTOi/Riqj+WzxBoqCAA1iskTfewo7YYD6EjgpCUXQZ29Eh5IqaaXCkmJGArkjIC5APwQksCkXDOB59dAXxBIDp+VMrML0an4kHNw6SVoszgAM6gDnRdCZM9huE/xIQeTRMzudGCKIGwMS4kYXQJZg7xIHuaFH+AAGbMIjH4p5lhFDiFRqExom91odWhRJ+gwggQDzYsFsGkyBB3eAw1wRvYylPmAKIzdcNa0DRMnRUF0hAkav5oACaDyCgI+KFJ6aaoJUP0/Hdo6I4hZYqoH5sGh2KJYnoXnHa0D/Tb5lCTwRYzO4ZZeIjHijDYIBqwAplBHzLBSitqDVkDoHDqBrLA63gFN4oVVNM4TSYb6OwVd4jQRe0XS9vwG4kIH9iDRBFDeECzQ2KUFlYBc5DLu/vFvX19GJNKHQ4gkJZPmQ4B+DZfaUuvSCxFgDJXKdfhl2kK5IkuCUKErgPuR37ANdQiEJHWH1gCG0KTyQEbg7+0pkwmGEdRMbrBZTiHOE8RxKWfaejoFUHNoWBlZjR/xCjlPcQDMy0Z6OiBukB8WS++eHxAMiChS5NfQkMDARaBN0/Trt1Obe/uCz1yqaGpJauo3C3iRJsI50xxg6qjNKFnMJ2D1oxpmVzeL5Z4RJxbbBe6jB29xC5ks3tYbR1OtjMRKHfkXaL+9u4epkvQHOllJLiIg0Q4gkwpE2VunFN7z+DCjftpheud97X39FPeQMpeiECT0lwQATiEoWyAHQTKA6JifWPw5YnKYqAKwEG4BG2BOJiaV1a1huXHr8VPuygCaaaQAy0IxIjZiqTyiFPx32zxmrfR9/BlupqIxqGlAx8QE8yr2GkOFEh4QOuC/7S1EOUJTrCGGfklNn77G+nrI2mjMBkr8HjU +6dtwwJwq82RSQkgfnKYX8FfYB3X2Skqra+et23XxQd7huAfG671pqudpKCDAEuWFlfXGK10zSmt9D8WtYIcNDAycj8/Q/ZHV0g2yAb6gYGjsp4gBAdRRLu/s6Z32k/UKVmR07IPgk7djLt5tbVfeZVaSU/DhA3F43wV79VNEefY8/Wbl5xaG68fP3MmYvXRXC/1E37MEqYB9YFyeVdlyueXuo5t34lsRXyCqfmiNUwoEur/Y5AmZL0A+TYAw7FlUgcuPxmVM/8Hx1PWHBy4lXk5Ie0lNUT7PhNIbDUjwq+QZ03meUEl1Xeixi+2ddE2uklaxQtxDzytOlARQoAxWUCK3eMpih4ZOUVN710df2fgeiLvwkEvGr1JcfpaGAALgCuzvZOZrT1t2OD59vfuR8Qss+iTSS4lco+W727uBvfjoIESqqmvmHLhs6XVg78mbTfSBMmw/rWNHd6/+cpf4R/RV1UpKyOfb+h/zCI+tqG0sKqn59BuHL7ZFRJ2O7+ztzSwqP5+QeejKwx0hZx53dvf2iyNO3rDefSj85O12Oke50iloZwwuxziXkPXFuj0dXRh4KzXHwe+kg8+Z26nFyGJaNvwjRuXy8toWj7BzHpGX523m2Abhe5dBjUfHJljuORx8+Npj/LQv03MxVXqx0HDlDh5dzJ9SWOwUdsZi98nYW5m4IIJ5QpKSNefEQvMw5hiICb6enGfFOcoOO5crUCwdi72fZ+dzmBNzxf/o9drWzluPsh9lF0ANxVJZ7M2U4sr6mpaW47fSLz3Idw0+diOtKOj8A0jCiDe3rMYl6IRH1A2j1bguElJdvZth53uYFXgsjadYlQSo3H8hkR1w0sz3qOEK9+ZucU1D00q7gHx+TezNZNM9z3+CmKEhg6C5ozv05I3cksqU/LLIMzclAwOx93P1Vnq20fdRAO9g/yCNa+4ZFnYq/qu1btZ+R9CPV6qyrp5+w+W7V7MPhZ64cSz2nkQsEda3TF1kZ+93 +dFfY8ZRMXqmwTnex84+WkUcv3O4XiX2OXHvLaAPL59DB8/HC9s7tXkdWs/yPXrm/wjJku+cR8YBsPTvCI+oa5HwhIeeLdZyOHvQQfaNPeIYe3xURq/Ozw62sEqwYdjbgpUxY2zxvlcd6dljQqduffm/jFHYBQm0CT/9iHXj4cuJqp4jl9qFg6aCujAecWVxmvNKtkILg4PlrDpwY36M3p//sdPQaPtQGIKBGTH4jhfveV+Zu4ZcfK9fAHY5L+3r9jrDT11wjzny+xr2oqjH2dtrMX1ghJ+J+MvXWW+ba0Sda78hxDUBV1CuRfLPS5fStjIziqrcN161z3gvRUouFq10jjZayoAwusGWpi+mumMDDN/45z8b/1C2otkfg0d0xZ62DDs/8lV1Av0XmFnzWcIlz2PHbv9lF6C52ARBU1jZk8JADaVncBvpB2RdpKCDAjWLyWTpzJ2vGqp0tPXSeEAw2vcFV1dIZn5Rpyjk9a/mO1i7gC1xCZgEIDFbsNlm7e7NnmLPf/p7e/vK6pokLrUKOM6+nwFKWOUZGnKbrM+Vyz/03TVbvYVaAXU7K/Wi+4+n7eTmFZUfikt6fa57Lr97msdczCu36pYScues4LV1oDiB2dmH5xYSUmb+5eUThVzfAFjAVcAw5+52ZDx5B9/U54hJ+Lp1f/9F3DseuJnMLhGcTsj/4fE18Mn0YiAFBCYDApaBC8eRyaVnNdVA5pv5r3ZkH/ADhoA/wKPZBtuFqz+k/s6+l8rrFYuPlnnYB53KKSlPzSmcv2eWy79KKHTH2wbhuPauscfrPLjVNbVt37N1Bv/IAIFiwefeZhPy0gpop39rkCxSP9l5N4H69aSdA0tTz4Go2LjkEWsuO8IzCh2eA0Wm5RcfjH43/gX3qRlZBZcOkH62TC1Dr3Mvnz1ruXN2qeBCFuib4Q/fP09AcQ9qj0Lth3onNGLmzdzL0V3q296DsGUbfSy9cuGm3E+fASpcovZW7mtpAwYKC +REFCJ5u93OP83WeW8dxK5X6zwXuReVB+OS7c+NUmKOiEYjnXnqgbq9gRzHHY8Vvj5zuwQs+x/Y9Y+++38T1a2dC83i3CKwbFHHs/+/P1vl29YrFY6hl2eeF2P4/IIzOWuO+MvM4kB4FBDb63CNl5AM0HkI3vYde9l84l5H0w35EVfJrtf8zW/4jZ7ujsUuAjNA4rnF4iMFrtXFiFmmDv2fhF6z08Q09+vsFrs+LlAeBIDlCrgA3vFkldQi/MWsaOzyvR/dl1jetRl+DDbL8j5p4H4h5m74y5utjCT1jTHHDw6mer3EFpbXYN9QjHyogGpN9t8zqTkJPCrfxspVsjffQF6Nzt7G+27m4Sy+Zt8D10UdExNrDC98Rc6ekX2+w5tNTS3zX85NSf2aeuZ5yJz5y7xpN5E0hCNthoVg19mzc0A71SvLGDLXqRhgoCkDps0GB0iSFjCDp3O91g9W7lGjKkbze67wxHwdzKqTBc6QEWBGpCb9JTECxzi01QPH8IxEAU9iudY36wDIZqLjb3DaAfygHaFRW3yjEYi8G1uQ9n/uLWjIODJ7TU1m9X9FU4OHcvw2j1bjhIyi2btNC+pA75uMrtiDvtaqgIaNde6RSzQflCKFu/4+yI2Ht5wkk/e1bQV6sMEoiVqVh6oUBnOVvY2gcmfML3drfTUbXujLqw2kX5lAEdlCpWxIPD0dA75QeHs8ncOSvdT9xhnnhXEL++5eutPt+Yhq9xOZhJn17aaO/nRL/8BNybu3bHxXu5qdwKk+VOtc2KJSEnAQSbdrVJZD+YBzgFn2YC17OjAk7evpaUBwq/jdb6O/OAg3EZd9NLp37vUNWCvT+ZK9Bfyq5qRf+Gcg92DBdfQkMDwVPZQA9gjKb84t30v5tsZYec99of6x524npyznr3vaucIi7dTlnjEvPPeZbccnStGSZ1d/fq/uDwnWmw78HL7mHnI0/eLK5u2BV+4ujlxMW2oSucwiGaXcAJg1XORy/G +V9TW74q+8oulN5P2cUfPd1t9Vtj7n77xgBN9+l5KFgQ6B5+c8oN5vqAim1/zwVeme8/cyCmt01/C2nvm5snrDycutN3kGqX4aBLNJS4p/9OvrDwjL5y58XDGTyw736O9EtlSu7DFZrtPX0/wP3Dx2h1cGgoJmNZVN7VO+8nBxe9YTWPr3NUenlGx526lGK3e+fkW7076Bj8KL3lCeom55/7wM3G/WAQu3uoNHhLnyE29JY5Hzt/af+5axCmqq+Ifzlnvumn3CUvO+SspOZAs7NjNaT+zDl+657n3wiuzN1xM4D3M48/4cUtNExp4oKPxqcZL7aGYUzdTP/l6m+/BK0fiHnw839Lv+O2HOYLpi9nHbzzcf+7OP7802xlxoVskmb/F5wdT/5PX723ZtX/ifKvaQXPwb+kPgwAwAF0bA4or6lgBx813xZjtid7mGnLxRrKgsc3a77it98Gzt7OgTydl4dM2DPVJJOHHbprtPGC659BW96g9YScrHjf7HoxdyophBZwC/wByrmzpsAk8upYdnFUgeJhbeiIuAYVIe2ZFYxs7+PAa132O/ofySgSg4qCD2vofupKYDlcPXUnyCDsjlUiv3M/Y4BLlE3Pp/L3M0MNXWhWLghT1v5iQvco50j7k5M7o8zeT0PzDiGBXxOn1rvtsfQ6n5ZWgmYM/jI3AuZrEc/ba39He8zC3eOOOCFb4+djEPP9DlytobZl8eSVVpq5Rv9j4swKOVdZDP5b1yWVRlxI2Oe21cAcHOgEyqqxrDDhyIfLw1eBDVycvsb/6KKdbKvM6eGWDy76o2ISAU3fzyurL6xsjjsV2dvVgxjJ5dklF1KlrIjrfcez6w1XsMOewkx4xYPoEYJQPXLq/0Xlf4NFrp+MzDpyIB9SW1rfa+hzb5rnXa/+58GM3mG+K/0f6oyDAKiKfgBQhv084nULdc4iK9up5QkYPVlYmA9WIeYLMB7Om7gcYH4XGZhQ1Er76AokaJmXedHaB +UR4MidG6AyPpQ0Y0GhwMRhicjRjMli4wweIB58yoEgOpwwvBgwnpVCcgACcNFSHMjyJPPHsSAmM8Hv/IxbtVbZ0PuNCJ7c/fZlajP03KRsMODpUVemYG4AnhMGSwzkAwUlMcKQnZpjj8d/RnQKDc8B/Egz4j1gQ5CCEgS6ZJcCBGJwvOoJLIL9iARyA/OIeocEyT4ygXTkGgsEEc7Pvgy0BDMB3NjoqERsA5CVDzTO9GkKFzhplLRHIxVAXjoqWml6AsXOzK5KucuAOhysRwAbUEhkDOYEHxjRdwkZZCs8FioaoQixaN2UKtaU2BsBx0uCg8IR30YBwmYw4YgbYR42BIRnHZYod9k3/1MVrFibqSjMsasY2QLcQB/vQzc5oQCOeUm+DJiqHJTMGYIV6EPWSLk+KUb1hfijm6KVilrCRtwH+koTqGw/S/kIZBMEzDIBimYRAME9AwCIZpGATDJJf/H9/NapHndBw9AAAAAElFTkSuQmCC + + Cm 11b5b2e7-c415-4ba7-a346-3d00f6f761f0 \ No newline at end of file diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 69e57df7e..0c24e67e8 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1178,6 +1178,42 @@ public partial class Nomina_Nomina2 : ClsPaginas } Alert("se reenviaron los recibos timbrados"); } + public string msgCorregidoSat(string msg, int CvePersonal,string RFC, string CURP) + { + string retorno = msg; + if (msg.ToUpper().Contains("RFC")) + { + if (msg.ToUpper().Contains("NOM138")) + { + retorno = string.Format("Existe un inconveniente con el RFC '{0}' del empleado,favor de validar el RFC en caso que este bien capturado /n el empleado deberá realizar una aclaración directamente ante el SAT.", RFC); + } + else if (msg.ToUpper().Substring(0, 5).Contains("301")) + { + retorno = string.Format("RFC '{1}' Invalido favor de actualizarlo en el módulo de personal", CvePersonal, RFC); + + } + } + if (msg.ToUpper().Contains("CURP")) + { + if (msg.ToUpper().Substring(0, 5).Contains("301")) + { + retorno = string.Format("CURP '{1}' Invalido favor de actualizarlo en el modulo de personal", CvePersonal, CURP); + + } + } + if (msg.ToUpper().Contains("CONCEPTO NO REGISTRADO")) + { + retorno = string.Format("{0} a un concepto del SAT en el catálogo de conceptos.", retorno.Replace("No se pudo generar el pretimbre:","").Replace("(", ",favor de vincular el concepto SIG '").Replace(")", "'").Trim()); + } + if (msg.ToUpper().Contains("REGISTROPATRONAL")) + { + if (msg.ToUpper().Contains("NOM162")) + { + retorno = string.Format("Es necesario vincular el empleado a un registro patronal en el modulo de personal", CvePersonal); ; + } + } + return retorno; + } protected void LnkTimbrarTodos_Click(object sender, EventArgs e) { string msggral = ""; @@ -1188,7 +1224,7 @@ public partial class Nomina_Nomina2 : ClsPaginas using (ClsRH objrh = new ClsRH()) { objrh.GetPersonal(-1, UsuarioActual.CveEmpresa); - dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "MaiReciboNomina", "NombreCompleto" }); + dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "MaiReciboNomina", "NombreCompleto","RFC", "CURP" }); } foreach (GridViewRow gvRow in GvNominas.Rows) { @@ -1198,10 +1234,14 @@ public partial class Nomina_Nomina2 : ClsPaginas LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar"); string MaiReciboNomina = string.Empty; string NombreCompleto = string.Empty; + string RFC = string.Empty; + string CURP = string.Empty; if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null) { MaiReciboNomina = drow["MaiReciboNomina"].ToString(); NombreCompleto = drow["NombreCompleto"].ToString(); + RFC = drow["RFC"].ToString(); + CURP = drow["CURP"].ToString(); } if (CvePersonal > 0 && LnkTimbrar.Visible) { @@ -1210,6 +1250,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual); if (Msg != null && Msg.Length > 0) { + Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP); msggral = string.Format("{0}{3}{2}
{1}
", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo")); } else @@ -1767,7 +1808,7 @@ public partial class Nomina_Nomina2 : ClsPaginas for (int i = 2; i < dtxz.Columns.Count; i++) { //para evitar errores agrego una columna al inicio - dtxz.Columns[i].ColumnName = string.Format("Z{0}",dtxz.Columns[i].ColumnName.ToUpper()); + dtxz.Columns[i].ColumnName = string.Format("Z{0}", dtxz.Columns[i].ColumnName.ToUpper()); } for (int i = 2; i < dtxz.Columns.Count; i++) { diff --git a/OC/OC.aspx b/OC/OC.aspx index b2e5651aa..0f3e4323b 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -325,20 +325,34 @@ - - -
- -
+ + + +
+ + +
+ + 8% 16% 0% -
-
- - + + +
+ +
Núm. Remisión
+
+ +
+ +
+ + + <%--linea 7--%>
<%----%> @@ -2767,7 +2781,7 @@ - + @@ -3215,20 +3229,20 @@ function ValidateCant(variable) { - - var txt = $(variable); - var max = txt.data('cantidad'); - var value = parseInt(txt.val()); + + var txt = $(variable); + var max = txt.data('cantidad'); + var value = parseInt(txt.val()); if (value > max) { txt.val(max); - } + } if (value < 0) { txt.val(0); - } - - var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]'); - importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu'))); - + } + + var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]'); + importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu'))); + } @@ -3244,6 +3258,10 @@ } } + + function ValidaNumRemision() { + $('#BtnValidaNumRemision').click(); + } diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 5097f2a22..5348222a8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -822,12 +822,19 @@ Partial Class OC If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then + DVCultivosCuadro.Visible = True DdlSubProyecto.AutoPostBack = True DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus =1") DdlCultivosCuadro.DataBind() DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + If UsuarioActual.CveRol = 1 Then + DvNumRemision1.Visible = True + DvNumRemision2.Visible = True + End If + + End If 'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO @@ -1409,6 +1416,8 @@ Partial Class OC LblCodigo.Text = objOC.Codigo TxtFolioAdicional.Text = objOC.FolioAdicional + TxtNumRemision.Text = objOC.NumRemision + If Not IsNothing(objOC.Tipo) Then Select Case objOC.Tipo.ToUpper @@ -1750,6 +1759,10 @@ Partial Class OC UpAcciones.Update() End If + + + + uppEstatus.Update() UPPEmp.Update() @@ -2529,6 +2542,9 @@ Partial Class OC 'VALIDACIONES PARA GUARDAR If ValidaGuardar() Then Exit Sub + + + Dim MsgError As String = "Hubo un error al registrar" 'VARIABLES Dim CveProveedorSucursal As Integer = -1 @@ -2590,12 +2606,18 @@ Partial Class OC Dim CveOrdenCompraPadre As Integer = -1 If GeneraReq Then + + If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then + TieneError = True + End If + + If Not TieneError Then ' AGREGAR REQUISICION If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, - IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then + IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim()) Then CveOrdenCompraPadre = OC.CveOrdenCompra If CveOrdenCompraPadre > 0 Then @@ -2622,15 +2644,21 @@ Partial Class OC End If End If + + If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), If(TipoOS, "OS", TipoOC), CveProveedor, OC.IniciaTransacSQL) Then + TieneError = True + End If + If Not TieneError Then ' AGREGAR ORDEN DE COMPRA + If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, - Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto) Then + Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text) Then CveOrdenCompra = OC.CveOrdenCompra CveEstatus = CboE.SelectedValue.ToEntero @@ -2790,11 +2818,17 @@ Partial Class OC Proveedor = DdlProveedores.SelectedText.ToString End If + + If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, CveProveedor, OC.IniciaTransacSQL, CveOrdenCompra) Then + TieneError = True + End If + + If OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, - PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)) Then + PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), NumRemision:=TxtNumRemision.Text) Then If CveProveedorOriginal <> CveProveedor Then If Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then TieneError = True @@ -3263,11 +3297,17 @@ Partial Class OC RetIVA = TxtRetIVA.Text.ToDecimal RetISR = TxtRetISR.Text.ToDecimal - If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, + If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", CveProveedor, objOrdenCompra.IniciaTransacSQL) Then + HuboError = True + End If + + + + If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, - CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero) Then + CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim) Then 'CREA POLIZA POR CADA PROVEEDOR @@ -3331,11 +3371,19 @@ Partial Class OC Else - If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, + + + If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", DdlProveedores.SelectedValue.ToEntero, objOrdenCompra.IniciaTransacSQL) Then + HuboError = True + End If + + + + If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, - Promocion:=Promocion) Then + Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim) Then 'USA AC @@ -8677,4 +8725,58 @@ Partial Class OC Return Retorno End Function + + + + Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTranasaccion As System.Data.SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean + Dim NumRemisionValida As Boolean = False + + + + If NumRemision.Trim.Length > 0 Then + If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 AndAlso UsuarioActual.CveRol = 1 Then + + Dim ObjOC As ClsOC + + If OcTranasaccion IsNot Nothing Then + ObjOC = New ClsOC(OcTranasaccion) + Else + ObjOC = New ClsOC + End If + + + If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then + + If ObjOC.DtResultados.Rows.Count > 0 Then + Alert($"La remision ya se encuentra asiganada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")} {ObjOC.DtResultados.Rows(0)("Folio").ToString() }", TipoMensaje.MsgAdvertencia) + Else + NumRemisionValida = True + End If + + End If + + + + Else + NumRemisionValida = True + End If + Else + NumRemisionValida = True + End If + + + + + + Return NumRemisionValida + + End Function + + Protected Sub BtnValidaNumRemision_Click(sender As Object, e As EventArgs) + + ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) + + End Sub + + End Class diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index d255c3844..332d945fe 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -35,9 +35,10 @@
-
+
@@ -283,257 +298,300 @@ - - + + - + - - -
-
- - - - - - - - - - - - - - - - - - - - - - - - -
+ + +
+
+ " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"> +
+
+
+ +
+ + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ + +
+
+
+ " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info">
- - -
-
- - - - - - - - +
+
+
+
+ + + + + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - + + + + + - - - - - + + + + + - - - - - - - - - - - - - - - - - - - - + + + + + + - - - - - - - - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + + + + + + + + - - - - - + + + + + - - - - - + + + + + + + + + + + + - + + - - - +
-
- -
- - +
+ - - - -