This commit is contained in:
2023-04-25 10:59:26 -07:00
17 changed files with 2024 additions and 1007 deletions

View File

@@ -258,6 +258,58 @@ Public Class ClsFinanzas
Return Retorno
End Function
Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Finan_RF_EstadoResultadosRepGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@Periodo", SqlDbType.Int).Value = Periodo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al consultar el Reporte de Razones Financieras (2).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Finan_RF_RatiosRepGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@Periodo", SqlDbType.Int).Value = Periodo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al consultar el Reporte de Ratios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#Region "RazonesFinancierasCuentas"
Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False

View File

@@ -7681,6 +7681,8 @@ Public Class ClsPaginas
Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
'cuando el Pago viene por NC, se utiliza un concepto
If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME
'cuando el Pago viene por Venta, se utiliza un concepto
'If Pago.TipoPago.Contiene("Venta") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 275 Else ConPreP.CveConcepto = 275 'Pago Compra con Venta
Dim Concepto As String = String.Format("{0} F:{1}", CompraActual.ProveedorNombre, CompraActual.SerieFolio)
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
@@ -8192,10 +8194,10 @@ Public Class ClsPaginas
End If
'movimiento de pago cliente
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, Contabilizable:=Contabilizable) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, Pago.CveConceptoPago, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
'movimiento de pago cliente Complementaria
If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, Contabilizable:=Contabilizable) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, (ImporteME * TCValuacionVenta - ImporteME).RoundSQL, CveConceptoContableComplementaria, VentaActual.SerieFolio, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
End If
If Pago.AplicaTraslado Then
'si tiene iva y su proporcion
@@ -8203,10 +8205,10 @@ Public Class ClsPaginas
ImporteMovimiento = (PorcentajePago * VentaActual.IVA).RoundSQL
ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 13, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 61, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
End If
End If
'si tiene RET IVA y su proporcion
@@ -8214,20 +8216,20 @@ Public Class ClsPaginas
ImporteMovimiento = (PorcentajePago * VentaActual.RetIVA).RoundSQL
ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
End If
'si tiene Ret ISR y su proporcion
If Not ErrorMovtos AndAlso VentaActual.RetISR > 0 Then
ImporteMovimiento = (PorcentajePago * VentaActual.RetISR).RoundSQL
ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
End If
'si tiene IEPS y su proporcion
If Not ErrorMovtos AndAlso VentaActual.IEPS > 0 Then
@@ -8239,10 +8241,10 @@ Public Class ClsPaginas
If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada) Then ErrorMovtos = True
End If
'concepto pago
Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
@@ -8992,6 +8994,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Finanzas/RepRotacionCartera.aspx".ToUpper(), 649)
PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649)
PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1)
PaginaDict.Add("/Finanzas/RepRazonesFinancieras2.aspx".ToUpper(), 1337)
#End Region
#Region "Flotillas"
PaginaDict.Add("/Flotillas/CatCombustibles.aspx".ToUpper(), 284)

View File

@@ -443,7 +443,7 @@
<ContentTemplate>
<asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
<br />
<asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA"
<asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,SerieFolio,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA,CveSubProyecto"
ToolTip="Listado de Movimientos" data-height="200" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns>
<asp:TemplateField>

View File

@@ -33,7 +33,7 @@ Partial Class Bancos_PopIECompras
'Configuración
Private Property CveIE As Integer
Get
Return ViewState("CveIE").ToString.ToEntero
Return IfNull(ViewState("CveIE"), "0").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveIE") = value
@@ -315,6 +315,12 @@ Partial Class Bancos_PopIECompras
End Get
End Property
Private ReadOnly Property NombreCliente As String
Get
Return ViewState("NombreCliente").ToString
End Get
End Property
Private Property NotificarA As String
Get
If ViewState("NotificarA") Is Nothing Then
@@ -814,6 +820,7 @@ Partial Class Bancos_PopIECompras
ViewState("IdCtaContRetISRCliente") = dtc.Rows(0)("IdCtaContRetISR")
ViewState("IdCtaContComplementariaCliente") = dtc.Rows(0)("IdCtaContComplementaria")
ViewState("IdCtaContMonedaExtranjeraCliente") = dtc.Rows(0)("IdCtaContMonedaExtranjera")
ViewState("NombreCliente") = dtc.Rows(0)("Nombre")
If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
@@ -1499,6 +1506,8 @@ Partial Class Bancos_PopIECompras
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
Else
Exit For
End If
End If
Next
@@ -1520,6 +1529,8 @@ Partial Class Bancos_PopIECompras
Pago.TipoPago = "DD"
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
Else
Exit For
End If
End If
Next
@@ -1541,7 +1552,10 @@ Partial Class Bancos_PopIECompras
Pago.TipoPago = "DD"
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
Else
Exit For
End If
End If
Next
@@ -1561,17 +1575,20 @@ Partial Class Bancos_PopIECompras
End If
If MsgError = "" Then
Dim VentaActual As New Venta With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal}
Dim VentaActual As New Venta With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .ClienteNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero}
Dim PagoVenta As New VentaPago
PagoVenta.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
PagoVenta.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
PagoVenta.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
PagoVenta.TCPago = rw.DataKey("TipoCambio").ToDecimal
PagoVenta.CveCompraRelacionada = CompraActual.CveCompra
PagoVenta.TipoPago = "XX"
PagoVenta.TipoPago = "Venta"
If AplicaPrePolizaPagoVenta(VentaActual, PagoVenta, CvePrePoliza, ObjMov) Then
MsgError = "No se pudo insertar la póliza"
End If
Else
Exit For
End If
End If
Next
@@ -1579,28 +1596,44 @@ Partial Class Bancos_PopIECompras
Case Else
ImportePagado = 0
End Select
Dim ObjConta As ClsContPAQi = Nothing
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Else
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
ObjConta.IniciaTransacSQL()
End If
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
IdPoliza = ObjMov.ContaIdPoliza
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
End If
End If
End If
End If
If MsgError = "" Then
ObjIE.Commit()
ObjIE.Commit()
If ObjConta IsNot Nothing Then ObjConta.Commit()
Dim StrMsg As New StringBuilder
StrMsg.Append("El Documento se guardó correctamente.<br/>")
If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
If IdPoliza > 0 Then
StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
End If
If IdPoliza > 0 Then StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
Else
ObjIE.RollBack()
ObjIE.RollBack()
If ObjConta IsNot Nothing Then ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError)
End If

View File

@@ -868,7 +868,7 @@
<div id="divCuentas" runat="server" visible="false">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style=" width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />

View File

@@ -81,7 +81,7 @@
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpDatos">
<ContentTemplate>
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" Style="text-align: center;" GridLines="None">
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal" EmptyDataText="No se encontraron Movimientos de Auxiliar" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Fecha</HeaderTemplate>
@@ -120,7 +120,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Num. Póliza</HeaderTemplate>
<HeaderTemplate>Póliza</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPoliza" runat="server"></asp:Literal>
</ItemTemplate>

View File

@@ -177,16 +177,16 @@ Partial Class PopUpAuxiliar
e.Row.Cells(7).Visible = False
e.Row.Cells(8).Visible = False
e.Row.Cells(12).Visible = False
ElseIf e.Row.RowIndex = 1 Then
e.Row.Cells(0).Width = Unit.Pixel(95)
e.Row.Cells(1).Width = Unit.Pixel(180)
e.Row.Cells(2).Width = Unit.Pixel(80)
e.Row.Cells(3).Width = Unit.Pixel(80)
e.Row.Cells(4).Width = Unit.Pixel(83)
e.Row.Cells(5).Width = Unit.Pixel(93)
e.Row.Cells(6).Width = Unit.Pixel(85)
e.Row.Cells(7).Width = Unit.Pixel(95)
e.Row.Cells(8).Width = Unit.Pixel(70)
'ElseIf e.Row.RowIndex = 1 Then
' e.Row.Cells(0).Width = Unit.Pixel(95)
' e.Row.Cells(1).Width = Unit.Pixel(180)
' e.Row.Cells(2).Width = Unit.Pixel(80)
' e.Row.Cells(3).Width = Unit.Pixel(80)
' e.Row.Cells(4).Width = Unit.Pixel(83)
' e.Row.Cells(5).Width = Unit.Pixel(93)
' e.Row.Cells(6).Width = Unit.Pixel(85)
' e.Row.Cells(7).Width = Unit.Pixel(95)
' e.Row.Cells(8).Width = Unit.Pixel(70)
End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

View File

@@ -215,7 +215,7 @@ Partial Class ContabilidadC_RegPrePoliza
If Not Page.IsPostBack Then
Tick = DateTime.Now.Ticks.ToString()
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If

View File

@@ -310,9 +310,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
Exit Sub
ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
@@ -450,7 +447,6 @@ Partial Class ContabilidadC_RegPrePolizaS
If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
If dr IsNot Nothing Then
'DivAgregarConceptos.Visible = False
DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
TxtFechaDocumento.Text = dr("Fecha")
TxtConcepto.Text = dr("Concepto")
@@ -461,7 +457,6 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtFolio.Text = dr("FolioPoliza").ToString
TxtUsuarioElaboro.Text = dr("Usuario").ToString
TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
If UsuarioActual.CveRol = 1 Then
@@ -469,7 +464,6 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
'DivAgregarConceptos.Visible = True
LnkAddConcepto.Visible = True
CargaConceptos()
CargaSubProyectos()
@@ -518,52 +512,36 @@ Partial Class ContabilidadC_RegPrePolizaS
GvPrePoliza.Columns(7).Visible = True
End If
If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17,292,308)").Rows.Count > 0 Then
LnkComplementoPago.Visible = True
End If
If dr("FolioPoliza").ToString = "" OrElse dr("FolioPoliza").ToString = "0" Then
BtnContabilizar.Visible = True
End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then
If dr("FolioPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
divContabilizada.Visible = True
Folio = dr("FolioPoliza").ToString
End If
Else
If dr("IdPoliza").ToString.ToEntero > 0 Then
If dr("IdPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
divContabilizada.Visible = True
IdPoliza = dr("IdPoliza").ToString.ToEntero
ElseIf TxtTotalCargos.Text.ToDecimal = TxtTotalAbonos.Text.ToDecimal Then
'sino está contabilizada, se activa el botón
' BtnContabilizar.Visible = True
End If
End If
'divDatosPrincipales.Visible = False
'divObservaciones.Visible = False
UpPrePoliza.Update()
RegistraScript("comparar();")
If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
'For Each row As GridViewRow In GvPrePoliza.Rows
' row.FCTextBox("TxtCargo").Enabled = False
' row.FCTextBox("TxtAbono").Enabled = False
'Next
End If
LnkExcel.Visible = False
LnkImprimirPDF.Visible = True
Else
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnEliminar.Visible = False
End If
End If
ObjContabilidad.Dispose()

View File

@@ -163,20 +163,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero)
DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero)
DdlActivoFijo.Enabled = False
Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
DdlClientes.ddl.SelectedValueExist(CveCliente)
If CveCliente > 0 Then
Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente))
DdlClientes.SelectedValue = CveCliente
DdlClientes.SelectedText = drp
End If
If CvePersonal > 0 Then
Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto")
DdlPersonal.ddl.Items.Add(New ListItem(drp, CvePersonal))
DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal))
DdlPersonal.SelectedValue = CvePersonal
DdlPersonal.SelectedText = drp
End If
DdlPersonal.ddl.SelectedValueExist(CvePersonal)
LbAgregar.Text = "Actualizar"
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")

View File

@@ -1,498 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Body>
<ReportItems>
<Textbox Name="Textbox4">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>16pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.19791cm</Top>
<Left>12.73153cm</Left>
<Height>0.6cm</Height>
<Width>2.32714cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=UCASE(day(Parameters!Fecha.Value) &amp; " DE " &amp; CHOOSE(MONTH(Parameters!Fecha.Value),"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre") &amp; " DE " &amp; year(Parameters!Fecha.Value))</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<Format>d' de 'MMMM' de 'yyyy</Format>
<Language>ES-MX</Language>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<Format>d' de 'MMMM' de 'yyyy</Format>
<Language>ES-MX</Language>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.28898cm</Top>
<Left>14.80763cm</Left>
<Height>0.59901cm</Height>
<Width>5.18048cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!ImporteLetra.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>3.73754cm</Top>
<Left>1.11125cm</Left>
<Height>0.6cm</Height>
<Width>14.79409cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Beneficiario.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>2.8649cm</Top>
<Left>1.13453cm</Left>
<Height>0.67938cm</Height>
<Width>10.11414cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Importe.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>2.78553cm</Top>
<Left>16.60737cm</Left>
<Height>0.75875cm</Height>
<Width>3.23497cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox3">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Observaciones.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>9.12495cm</Top>
<Left>0.73766cm</Left>
<Height>1.89646cm</Height>
<Width>15.5175cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Tablix Name="Tablix1">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>3.35611cm</Width>
</TablixColumn>
<TablixColumn>
<Width>11.2824cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.29715cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.63229cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.54708cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="CODIGO">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CODIGO.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>CODIGO</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cuenta">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cuenta.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cuenta</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cargo">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cargo.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
<Format>#,0.00;-#,0.00;''</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cargo</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Abono">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Abono.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
<Format>#,0.00;(#,0.00);''</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Abono</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="Details" />
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>11.32099cm</Top>
<Left>0.73766cm</Left>
<Height>0.54708cm</Height>
<Width>19.56795cm</Width>
<ZIndex>6</ZIndex>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<BottomBorder>
<Style>None</Style>
</BottomBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
</Style>
</Tablix>
</ReportItems>
<Height>7.26042in</Height>
<Style />
</Body>
<Width>8.08692in</Width>
<Page>
<PageFooter>
<Height>0.66146cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Textbox Name="Textbox70">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha Impresión:</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Today</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.09687cm</Top>
<Left>1.12258cm</Left>
<Height>0.46771cm</Height>
<Width>6.86562cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</PageFooter>
<PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth>
<LeftMargin>0cm</LeftMargin>
<RightMargin>0cm</RightMargin>
<BottomMargin>0cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
@@ -537,6 +44,447 @@
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Textbox Name="Textbox4">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>16pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.19791cm</Top>
<Left>12.73153cm</Left>
<Height>0.6cm</Height>
<Width>2.32714cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=UCASE(day(Parameters!Fecha.Value) &amp; " DE " &amp; CHOOSE(MONTH(Parameters!Fecha.Value),"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre") &amp; " DE " &amp; year(Parameters!Fecha.Value))</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<Format>d' de 'MMMM' de 'yyyy</Format>
<Language>ES-MX</Language>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<Format>d' de 'MMMM' de 'yyyy</Format>
<Language>ES-MX</Language>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>1.44773cm</Top>
<Left>14.80763cm</Left>
<Height>0.59901cm</Height>
<Width>5.18048cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!ImporteLetra.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>3.89629cm</Top>
<Left>1.11125cm</Left>
<Height>0.6cm</Height>
<Width>14.79409cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Beneficiario.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>3.02365cm</Top>
<Left>1.13453cm</Left>
<Height>0.67938cm</Height>
<Width>10.11414cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Importe.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>2.94428cm</Top>
<Left>16.60737cm</Left>
<Height>0.75875cm</Height>
<Width>3.23497cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox3">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Observaciones.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>9.12495cm</Top>
<Left>0.73766cm</Left>
<Height>1.89646cm</Height>
<Width>15.5175cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Tablix Name="Tablix1">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>3.35611cm</Width>
</TablixColumn>
<TablixColumn>
<Width>11.2824cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.29715cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.63229cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.54708cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="CODIGO">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CODIGO.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>CODIGO</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cuenta">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cuenta.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cuenta</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cargo">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cargo.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
<Format>#,0.00;-#,0.00;''</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cargo</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Abono">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Abono.Value</Value>
<Style>
<FontFamily>Franklin Gothic Medium</FontFamily>
<FontSize>9pt</FontSize>
<Format>#,0.00;(#,0.00);''</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Abono</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="Details" />
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>11.32099cm</Top>
<Left>0.73766cm</Left>
<Height>0.54708cm</Height>
<Width>19.56795cm</Width>
<ZIndex>6</ZIndex>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<BottomBorder>
<Style>None</Style>
</BottomBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
</Style>
</Tablix>
</ReportItems>
<Height>7.26042in</Height>
<Style />
</Body>
<Width>8.08692in</Width>
<Page>
<PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth>
<LeftMargin>0cm</LeftMargin>
<RightMargin>0cm</RightMargin>
<BottomMargin>0cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="Folio">
<DataType>String</DataType>
@@ -580,6 +528,45 @@
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="LogoEMD">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAAFkAAABPCAIAAAAP5v5+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAADo5SURBVHhetbsHdxtXtiWs//XWfGtmvulu25KYiZxzzgAzKSrnnCgqizmAyKlQqAIKOTCLyrbkdmhny1YkKWl2Eer33LPa4fXMu7oqFguoqnv33WeffQrgtnf/r9vbd+/W375Be/fm7bvNN2/fvN1c39zY2Nh893Z9c/PtG/zc3Hi9/vbt283NNxsbeBP7xo3Nt6/XX2y8efXm3frm2/VX6y83Ntdxic03b3A2e7X6xd/i7f9V7b8GizebG5ub65gw+2NjYx0/Nt+/ioltAYRt/QgaTkHHC2gbm3j7OvbrGLH9zRYC2Gy19+f8F7T/l1jUx4ql32CnVj/Ebt5sbP70009ffP3V1999+/jhoy8//+Lbr7958uSvTx7/9cmTzx8+eowDL16uvwQZXq1j4kBiA5TZfLe+8R6OOgIgF8u3X3AE+9jWf/2/b/8iFhgEu4h/b/UjbAPv3779+eWL777//uu/ffXx/QdLtfm7a3dK5XIoFimWyxRBEvFkCv8IOk3nKCo7MTUXDMXJVI6kC9nC/L0Hj9fuffLlVz88e7n5ch3IvnvxavPFi5dgzOvXr3EvbFnE8fsGewT3rA/p/77961hgKGj1MdXhePny5dOnTx9+/DHFZNKZTKlQpJMkQ9F5JktRVJwk8oUCyQJBMekcsMhlywmCJkkmkcgQySxBlnwBMpOdJ8hCobxcW1xbu/foi6++g5Q8e/b85YsX6+vruMWrV6+2MGdbHZf6kP5Iq78Z23961r+IRX0oLBG2QAEEX375ZaFQiMfjJJWKEolcPr+6vJKl0wUmG49Eq9VqJB6jM0zEF0kl6YAv7POGpibnfHORJJklkzmfLzExHUuQpVR6PpNbTGcrlYWVYnUhX6ktr915/ORT
YIEJAI46Fmi46WeffYad92P6A62OAtr73/+x/SeweH+ZrYYRvHjxAih89913q6urd+7cKZfLlUqFJMk0k8nkc0yWKeQLpXyBodNlEISmwQsKbCGz3plANlOIhBJEIp1lKul0KZUqkKnilDd+azwYJ4sUU80Wa7lKtbq8ki7kM4UczsNdHj58+M0339TXAGMAKZ49e4ad9+P7vfa7qP0nsMC16q0+jufPn/309GmtWs3lckAhTdPgRZIgEkkCWFA0FQqGmBQ9X64Uc/lAMBiOxwrFUiFTzNC5cmE+GibTdNE3F8vnFwKBZDBE+iLUxasTvnCKSOdz1VpxYSEQj2YrBTKbSmfSBEGEwyGGYV68fIF1+feRAJr34/u9hvdj2Iiy+n794C/bb2OBE9CBPNtZb7A1AryAqGWFkE4TSRIzDIai+UIxEo3PzQWTKSqTY1JUKhGLFbLZeeBUKmUyaTpDUxTN0DkySYeD8dGR6alJP7BIxDOBADE6OjfhjfnCVCyVT+XKdKFMAdksEySjRI5KM0wySabT6VgsTlPpR48++fbb74DC69cb7Cj/WJgAuJ9//vnHH3/Ezr+ABe60AcOE1Pbqzcbz9dc/v3wJVH768adMNp+gMjRTTKULM3MhmilXF9ZIrHOQjMRJOpPKZEGUVDwezeUyVCqZTiXzaToWDgGvUCiSTjO+uVAoGItGkuihIBEOkUmyRFIlCGe2uETQxWCCTmSKsUw2lmHiBEiUiURiFJUOh+Jz3nA0Qj55/DmMGyKmnk1YJd9gofm1xi7jFpXq2/dHf9F+GwvWI26+xR3erL9993ITuCBZvFpZWkVAJGkAUUIijMRTxQrUrkSkmFCUCIYjBJlI0SSVTpEkkUlT4VCAwWqSOJwolsrzC4uYEvJIJIxXEVaZXK4GLMYmQrF4Lkpk42Q+SuZGZwKz4USqVJ6LEd45fzyBKCFHRycunB++NHQN58aiqS+//BYLvA56/KP1+KcN8/9le3/0
F+23sHgD84z+dmP9HesCv3n6dOn27YWFlWSCKldWs/kVCP7i6kNofm3xNp0tRDBcikqmkT7jcQJZg8rmmGAwEAr6UyRRLhXisVgqRZfLkJgCzAV6tbIELMKhZCZdCkWZOX8qmmC8ASJBFeJ0PkTQt2bnQA06k02R1PT0rMlkVSp0GrVxoH/v5ITPOxv+/LMvMFTkF7Q/rh3/tLFY/FOQ0OBukMdhh5HEv/7xx9ryyuSsLxZLxqOEP0D6g5liaY0pLIWiKQBRWVjKFsGPGp3LQCYJ6EWKjMSidDqNFFMsFJcXF+E6sLalUgW8oJAtKkvhEBGPURPjSK7RSCwbjjKhCO0PkbOBRKa0MB2MeeMEkSvE4kQkHN2//6BSrjYZ7ehSierQwZORcGJsZHxhYeH58+fA4t9j5Ndm9NttG06rUwvb/+MScFEvcI/Nza++/z5bLgdjCX84FgolsN4zM7HhqzNjE2GSKtNMKZ0rpnP5WDKZTJOZYpbOZ3MVhA8dScSz+Vw2l4XviLEtnkymCoVSAskmkcoypTlvCME/OxMKh9kYCUUys7449NcLjOjcbCg+DWWgM4i7iYkptVqrkKsNeqvF7JTLNDqtNRIm5+b8MzMzX3zxBcYPODAFNIBST73vZ/LH2jacg5NhYOpXQXv/yrt3L549x6ufPPkr4jhBpwNwSwQVi5HxSOratWlfkApG0sEwFU9mYkkacKRgpTDLdBqMj1NUIBr1hUL5UqlQKoMICJtwOIIdhAnD5KgUQ6WyiTjlmwuHg0QwSNCZ+RhRiBE58CJG5pJMMVdbTpcrITJ19/6D8+cvKhQqndaoVun1OotErOzr3eudxQ0JJCmswqNHjzD4+opi2LA/v5zLH2ksFkARlumXBKu3jfXN77/7AbEajifJTI7M5OMEDUr7vdGZ2QhTWCBS+QSZhXYGwolsoTo54wtFE8E4MR0KklkmnkoFIBAMA7uJ6EmSFOBAjEAsMplslimGQwn0UDCB
5BoKJkPh9NRMPBzLROKZ8uKdXHU5RmXnkEIKpZXbayeOnWxqapZI5GqlHpIh4Ev7+/Z5Z4OBQDAMMINBZNy6EwM7sLTY+Vd4gR91OFFKs9X0Vn7CFXH84f1HmAmdKyKDxlMZZFCGqRCx9NLyvUyh7AvFoJqhaNLrj6WzZWynZiNwjmPeuWQ2W55fLFRruVIlkyvAHGSzRYrKsEkxHAWxY1EoRSoUjIMdM9NBmipALK5cm4EikXSJzJSofNUXJUMpejYap+jMgQOH+HyBXK6ymB1qlaGlibt78BCTKfn9Ab/f7/V6A3ApBAEHDCBACijIfxoL/AcI9V+2nipsvtp4tc4+R3n79dffpNPZNDI8FrNYZvJFOlNkmBLyWTRGBiOJsYmZQDB2c2RyZHQ6kcxkmLI/kAgn6FShHExCRuZLC8v5yjzKCiJF50uVxeU1XDAQCEciiXAkEY0mc7kyNGZmJjA9hRmRk1PwEGmQLJmtRah8hGJQps1Fo4l44sTxk2ol9EKr1Zg1ahOHI9p/4Eg8QUaj8Vg0Fo3G4vFEMBgiiCRQ2LLF//kYef9zqwGLV+uvnq+//Pnlz19+99Wdew+xnsFgFHmUJOlcvhgKx2e9gfHJGWxjcWpq2odCMxRO+HzhcnkBACE7+MKxMM3cmvXH0/kAQqhcSTG5ENJPmq7ML5CpDExqPEH5/OEIqJFI4VIXLl4en5iJhKjrLC/IMFEY9xFTmFe2EE1RUZLIMczewT3cNoFcopHL9TKplseXHDp8JJqITU3PzHl9JVaSMjSdASIPHjyqSyc8x/uJ/bH2H1gAQ0TYKzj29dc/vfh5fmVx5fbdUqlGJFFS5TJMAfKIcePWmEA2VyaSaQBBp/PF0jzsVSyewgwLhSqUJZLO1NbuVFZW6WIJ2SJGkv5IKMWgPINBZxIEfEeJorMTk7OBYBRbdFwzHoVVraTStZlgKp6pxdLFJLCg0r5IKJfN9vf2tzS1K+U6Pk8mlWgaGtt2
79lPpWmfPwAulUoleFnkIYbJQo+++grC8QbBws7r760+zd9o/8ALoInQAMO++f7HLC5frlWqC0wWRSQmVSVQR0QSSPVJkqboXKFYw8RgI4FCMIT1oNABDauyxWJxeSnBZJI5RHQhxaSTNElmUrFkAsUKky0CVqAwPeMDuNhBHxubPnL41MmTF2d9xHQglcwtTAYTk4GoP04ghZEJor+nTySQyqVaoUCpUZtlcs2p02eDmH0kms+XvHCmfohoBCEDhV5eXsVUYDgAAVSj3t5P8tfbP2Cx+ebtsxevX21sPvn8y+rSKpMrZZh8vlCGLUhRaX8gDHXIFypAB/QOhhIIiq0VRk1dAE2QbAKBKEEzAZJMZDMR1CG5TCJNpfNZOpsuzZdRthdLtfmFlXQmj+WMxpL1DkyPHj3Z1NAmEMjbeYopHxGlyxMBYjacjKTSZDoX9Pn1Gh23jS8Vq0EKAV8uV2hPnjozNT0dCIagxJFIHOxAQtmCpog8de/eg7rdqCeUP4jF+zdtxcjb9Y3Nr779oTK/XFlcXbl9L5srFIpVMpXGSiaIFMYNIMqVWr5QhUyAERSdBwTgCOBgU2exNheKJWCwFhbT5RK0sTBfjZPwC4lsKUdQZKWyuLC4ioiDcECMoBqxOAmxEInlba08oVC2o5FzZvgWWViajaZDyRz0JhBNzk7PAAuFVK2U68UilUSsVqr0l4avjE9OghpIJYEA3FoULJmengEo2Wwe2rGVIv8lLNAAxM/PXty5/0lt8e6dB3/NF6uQfWg1nWawktFYgkimKtX5bK6Yy1eQX4AC1BSqUSovRKKAqcQ+s8sUInQuDqZk8gj4Ym2RKZRqi8sUk43GkWqLdS4ACFAD0QFSnDl7sam5XSqVa7QGiVxrcHRPhVJXJ/xDN6bowsJsIDY+Ot7e0sbniIx6u1plEgrkao0RJa+PzacBQIDQABZIIkglOALHB0e3unr75cuXyCmAo24RfrvVsUB/Ly1Pnz5b
Wr1fW3i4vPYp5kbRTKFYRiAkCHJL/0lETT3I8RJ4gWDB/Le0IwumECwWRSI7D7uULi5mSkupbHnWF00jwS6tIVqqtUWoJkgBOgARwFGbXx7Ytbe9nS+VymRylVSpFyqNMxEKqWTMG0/lFoJRevTmiFgg4nNFyCNIIlyuRCpTT03PTkxNTiFOpmf9/tCW42XregwOvhZhArzhvupw1OOlPsdfa/+ABXjx5MlX9x5+sbj8YPn2k1yhVixWV2/fQ4THUUEkKUwec0DWADSYxuTUHA4iiCAideHEPHFGLF0lMrV0YSVXXUvQRX8olS3Mo5xlchVcEG/+9xhBB5q9fYPtHEFraxuXxxeIlRqLZ8QbHvcnwmRxJkiibL157YZEJJZJlGqlUcBXiIRKoUg+OTUzNTPtnfNBNUOhsNfrI8kUsJid9SKnFIvlXC6POqWOBdrvY/Hm3es379ZZt/n23Q9PX6ysPSzWVphirbiwms5XCDA7V0kls7FgMhKIYnTRUCISISLBRCJCwEcn4xQyRCZTSiZzNF3KMtVUtposLLLPb9O1fHE1kMwSleUwU54OJuGtfJFkLJmhmAIYFiUoP5sH4m5PZ1Nzq0DIzpfLE+mNNti2a9cngihYvfFgkLw+NsoVCUUShUiiEohUoIZabbh+7UbQF4hGIBW+aCwMu0WSVJYpwOYjqxFEIk1nPn70BFggobD1NisZgOMf4uCXbdvmu5cbb9frH8f89Yvv1u59Wlu6W6wtza/dy1XmWWlLULXyQiwIA0AnwkQqQc9MI9BjWToXCkTCwTiTLvp90Wy2WiqtZpkama0RhUWKqiYTUNOFEFUMF+e9dCFVWJpffsiUFwNRMkJQ4RiYkQ+EowjsXYO7gYVYopBIVc0tHLPZHo2mAv5EPj8/Mx2ZnY0eP3eWI4awKsRSjRCkECphQG/dHCFiiRjSbgIWI5jL5UANvy8MREAQhsmAGtXqwtOffgIW9afnv4PF23cAgv1Yb/Pt
u7998/Tuw88ffPxlqba8cu/h4trdTL5YKFVCkCcU0tA81KqRBEa/UF2kk+lIKEahcihWK+WFcnmpWFyMxzPRZB4ZkQIEAWpujvAlmHh5aTJGxdMwK/fz1eVceTFTqKCiS9LZbAGSlOnq7uULRFKZSqsztUE4ZKoIsAgkvN7o9BYWB44caWhtkSg1coWex5XxeDKNyjAyMhoMBOd8KPi9oXDg8vAVvc6kVGgtZvu1qzdQ/C3ML0XC8YcPP0Z59fo167t+Bwuk0c23gOLdsxcb3/3w/Pa9TysLdxZW7975+K/3P30STSamZmaD/gBWIAEaBsNBf5B9AIvcksoEfKFUMs1k8rFokqJy0QhZyC+QmUowmYtEMsE5FAuMN0r7M6U5Mpct305nF1CJ5ytLTLGagA/NFqdmEe7B/QcOcbh8pFV0gVAqkShnvYj/yNDQzZERbyRCHzlxopXDEYplTc08Pl/O5Uo1GuOtkbGJiQkEyKx3YmxsRCAQ8bjoYqlEdfTIcdjPZDKFgS0vr7x69frvJXwdiF/BAvbs9Sabb77/8Xmldqdcu1tdvM/2lfuLd9by5RKRIlPJZBRlSSgEzwNcUAll6HQCFEGBnc6myK0nlzDpdC4Wo+ZCSYKpEYl8Iszks0veCDWMmMpW6NwiSZWBRYRIw5FFE1QqnZuc8c7Mzp07f7GxqRXyyRdIhCKZQqU7derizExoYsJ38+bM1FRo7779fKGIyxUigwCL1lbBrsH9yKRjE5OT02OBgLe7u1sgAApKiVilVOj7+3cjTBAyRCK1uLhc9+OsIv42LzbfbmzCnL1598NPr/PFlUxuqbb0iM4uFBfWivMLoP+de/eyGSYejpDxZAJVJJ2mwAGGoZJkNBytVWvVynwoGIO/QJYhiPRsIEHnlyiynIrma5W1IMFMx+hUeXkuiAREF+ZXkFihFzGCDsdJVMDQ/Bs3bzW3tCmUWgABOFrbeJNTvmiUGhmZiccZny+xb98BLpen
UGhaWgVisYbDkezZdzgSi0/MTPsCc97ZKaUSIiKFiMCec9pF3V39DFPA8iGtlMvV+gcIW7z4HSyAGv6/+/a7F7WFB5FYrrLwYGHl4zhdTLCuALDeTqeYEnxUJBHxRwu5ImvAUCNHIljTOMpVio7HiFCIdRzIqUxhPhDN+GeJ6VuBc6evBuKZcLocy1bjySKZLEI7M4VaplDNl+ahPKjl4e7BdjZJKLWIEQ5XCDhOnDx/5sxwb+++3buP7dt3wu32IOOqVDoeVyoSqZqaeD39e2b8gZHJCUStzzcn4Avb24RymU4q0UJQLGZnqTifpnMwHfPzi19//Q38xZZ2/nv/51i8eb3OPs55/OTrFF0rVe8xhVU6u4h0EIMtqMAa5ZMJerGyTMYomkDFWkjEaTqVIhNxgn2MGUdpCMNLECAKhUUuz6+GErl4JOubiDZt58+FqSBdDJB5KlOrVNaylSWCzvvg3wnWi8CJBoLhGzdHdzY0NzS2frS9kcMVtbbxNVqL09mzb98xt3vX/v2nBvoG5FI5jyOUSjVSqW7HzvYDh0/MhcMj05Nz/rnTp0+KRVI+T4I6RSoGFtK+vj0pkiESSCjpVIr6/vsf/u47fxOLjU0U+2+eP39VqqwGQmkmt1qq3k9laoX5tdV7n1QWVpCeSoX5LFUgIqlStlIu1IBFMk5k03SpUMhnc+l0mtxyXChkC0VYklwkkaWIgsfSx29TTM7G/GSOKi2XK2vHjpzv2rXP3tHr7hkw2dx7Dx21Oz1Go9lud544cfLU6XPHT5weHZt0ubvkct2BA8euXBkZHh4dGrqllCn4EFehVCSEuMqRak6dvXh9bPzm9GQkHj1+/ISAD53Qs7wQa0CQ3t7dZDKNyKUpJhFPfvXV11u1CdrvYPHq1frrH58+e/DoMyJVpDPzDz752/Lax7kqQEHNXklBHfL5arUKmYiEIwGfH/UpRaSIGJEkyGwmCwWlUgwcZIJIkyRKOJqmGYbMSThK
Tqv8+qh/bC4OUpDhjKBFJFGrXb39B46f7d13uHvPfpur02Kxu+y2fbsHDh46cvTYiZ7efrvDbbG6Wlp5f/lLg0Si0WgsUqlCpYKzEPP4QoFQvH1n44kzZyMJYga1QILs7WVtK0JMJlezaUiqstnduXwxmUwjeyUJ+vPP/vb8+Yv3M/71xmIBagCL+w//Wq7eKZRuZ4srxdrt2ur9dC4HLJAzUXYuLy/DXUZC4RBqdVTbwUg8HCPiRMAXTMRJ3K9SXcwXavF4GnU9MksmyYjblW0t0pHJMOxGrrQSno3L+YpDx092Dez5885Wi6dXoNRZ3d0Ol8fpsO/48AOlUn1xaBgiKpbIu7r7dXoLjHZ//36brVMqUWvURuRLuVzLF0jbOcJzF69Me4NelHbpHLwZIFCp9WqNAXKj0ug7u/rCEfZpWyqZQVr9+OO/oiJ5P+Nfb9teb7wAFt98+32ltloo384VVrPFZSpbhV4kKXC+ACBi0IV43O/zhwJBwEHGE/EQhDROJJLhYBTCeWnoCkZ/6vTFXK4ajiRBS8SYQWFubhCiZCFyC7FkPjQTF7aI7J4usUIjVunztdUYlQ+jlkvRhVxOo1ZptHqtziCRIgowdYPb0yMSKfbvP+5290ECpBINyhC4b7FYLRAohoZvso+a58IknTUYrS2tXOiuXKEBIkhGu/ccYLLFcDiRZUpQ0LW1B6hH3s/419u2jTevkEq+/faHQmmR9YXF2+X5u7nSEpmtZgsFJsdQaZpAxUeS7APWSBRYpCAMRGoXCqpWjtPuCodiapWhqZljMrkScdRaiWAgBF4MdOxuaRJN+4jSyoNIInPr8ghnB+f4yXMiqUZtcKBmS2aroQQVgyOKJ9xut05vNBjNcoUK9ZlIrECXSFQHD57cvftwK4JLpJVJ9AI+cqdaqTRdvzUdCJMQhDiRFkI4Bahl5EABW3j5WyMTGGMwGMtlS8VCFTECXvzuIww2RvDjq6+/y2Qra3c/W1x5
lMpUFm9/nEiXEiRZKpfoTJr9bhGJgicOXvi8c/FoNEczRw8dE/CEHldHiszYbR4U0f39+2Ccw1FkWWr8xniXo6epgX/i3NVouhSKU0OnLzX+qeHi0FWFyqg3uancApVfoPPVKW8wQVKejo6dDU3AAmZcpdbhakgoJpPzwIETnZ272lslPI5cJFBLJTqBAAyyT81G0Gf9iVNnLspkKkAA575V0SiBy6w3wD5JpHPIgCgg7997BOv5+3UqYgQ/ECPLqw/uP/pbOruYpCt0tkbl51PpDNJ/Osssr6zk8wCkANMFP0Al4UMTfd39DpvT4+oMBmImo11vsHZ3D2YyZYKki8X8qaMnWra3tDYLVHoHSvYokTl77Jy4RTQ2OtvUyLc5+jKFlUxxhcrXvMGYPxKzuVxcnsDuYLdbjksqEMp0euuePUcQJlyOVCLWyKV6bNvbEQyGqdlwOEajEHN6uut0gGQADnSrzRWDi4uTFAVPzEAv7t55CKv1T3PHL9u29Y2XsBjrGxuPP/2qtng/mSpDO7PFpThdqswvoDRLJAmoBniB1SaJZBq1VIryz8xZjFa302MxWc+fG4K3aWsX7Nl7GNoZhl3LZS6dO9/4QWNTA8fZNUAVa7Fk+sCuA20ftV44c6VhB6+r5wBTXA0SObq46IskokTK4emAUshkitY2DsozxD+wcDg79+492te376MPm0xGh9Fgb2sT8PjS5hbe3v1Hs4Xa8PVRoUQhl6vrdIBwIKEMX76eIKg5X4gkM/lcBcn1q7/Ba6Fm/z0sYNXfbGFx78GnyHzFyh1WO5lqrrJCpFIZJs1kmQjMdhR+FhV6KBpGBoneuHzVZrJazVaFTGmzucxmx86GlgMHj1+9OnbqzJlLwxecFlvrjla5VKu3uq3d/Z29g3qF7tyhU/0de8wGj0JhJTPz4VQpVVj0o4Sl6M7ePoFIfPDQ4Y+279i+oxFzU6r0Zovz0KGT585d4fPFZ86ct9tdQqGkrZ0n
U6i5AvH49KxYqWpsaYfQbgUI61m1OuPC4ko6w36XJ8uKRa2Qr37y8ZOXL+t16m+1ba82X2/xYvPLb36sLNxdXPm4snAfvCjU1tKFUnlxgWIy4Vgsw2QBB4xmIhaLhYKnj59WKXQqhb65kaPVmNvbRC0tgqZGHo+nMBptTQ07BBz+7r7dXR29BpPD4upSqAxD54ZHr4/fujkrkejMlq44WUgXFgk4/VQWN+rs6Wtr5e3atQ8ZkSdEdW4QiGRtHAEclFptHBzYM3xxuK21XanU8PkipUqLAk4sU8jVGtAEaYXDlai05u2NbTdGJ2uLq8FQLJViisVqEiYwX/rxx6d/4NEvYuTdu9dvWFV5/PnfmGJtfuX+8u1PcsVVJr9Cl+ZTxXI8nY5COJPk/Px8iiT83qlUIuS0e+AdJCKdyeBpb5Vy22UtjcLmRuHQhVulXE0tU4EvUolMqWA/9Wtu5oglKpFI3dgiaBEoPtjZDrKwXznIV+DBY1HC5wsBwbZmgVHvMFlcLqTn85dOnD1/fujS8PDlofNDMpQafJlUKBcLZe2tPIlYwWkXQCCgmnKZkctRKVTWhlaR3t5J5cvQYyqNoGZKxXIsHrt9+zYS6vPnv/+Nv20b795uvHuHvPr90+cLy3chfJFYZmHpEUlVUvlSGEKZzfkjkenZ2Vq1OjszNTs9MTc93gmPZOsBBMeOnBPyVXKpQaUwR0IpiiwSUUqr0Fy6OOzz+s+dHTp+7MzMjH9mJnjlyuicPz46E9IYnTK1ccoLr5YOwaQkqVmvH5WIXmPt7dmt1VsuXb05F4qgT816JyenpqdmzHqr1WhvaWyTiOR8rgglKYKIxxNJ5UoBXyURG3h8ladnb6a0lGSKyXShXF0qFKqrK7dLpdInn3yCYuTFixe/n1ORdtlv37x79/3TZ1CjQnmpUlsrlFbTzHy2XC0sLaTyuTj7rU0mDO/Cfs5HTU+My6UqmUyHAvny8C0e+Kk0etx9KTKHNLE0
v6xTasVCicPuOnzoWHfXgNPZCV7ATY9N+LwhUq138MSqYJSc9UF/4uXK/OkzFxqb2tyObqvZ09m968yFS/5I3BsMj4xPjI6OBfxBi8nmnfH1dvc3NbSickfBKpYqEEGtXD4iTiGzcHnKm+NzdGGBzJYTdP7u/Y/Xbj8oFsorqyuPHz9+9uzZH3oOvr6J0ozVzucvXi0ur2VzlcXFu5XK7WSymKQzJJMOxaM0k4HjiiXiCJNSoXjh3Hm5VC2T6vbtPXr82DmFnC2KsB+P0QF/PBmn7GabyWjRqnU93QNGg81gtNnsnUqlsaVNNHxzytU5+GFD+7Vbk9dvTU5MzUHw3Z5uo8F67fIInyfjCWRHT50dm/ZeHRlDjJw7d/7aletGveXcmQv9vYPNTe18voQvlIhkyjaeENkGWMilJo3O2cKVHjxxIZEupPNVOlNABslmC6gbv/zyS8RI/bPV327wnetv3rF/qbC5+ebxk89QTVSrt2u1O9XqGlMoQi0jBOrrBBwXk8tOT0+jPDt9+oxIKPvLn3bcuD5ms7rkMo1eZzl96gKZzKTpvN8b7HJ37t93YKBvsFSoDl28OjY2TSQziUTGYus8eeFaz8BBjcFud/dY7B1mq1OrM/3bf/vvDmdHT9dus9EpFCmMNpfF2aHUGXhCEY8rgPSAhrhFX88gnyduamnf2dzW2MoRypRCmUIk0sikJr3R08aXO7t3gxf5ylK+WKtVl0ul6pMnj+tPff/+LOe3GptT372r17PvXr1cr+JCuUqtulrIL6Qz6UDI39XbdfT40aHhS9dv3hgZHU9R9ODgXrC0tYXr94VlUhXGB1Mdj5EwoIl4avTmmIgn2rt7n0KmOn/uktnkcLq63O5eu62zuVWot3UqtbYWrlipMctUeo3OpNOZP/xoJ+r0U8cv7N97lMOTWJ2d+4+cUOtNH2zf0dzcCpu/b+8ht7u7t29QJFEgLkw2p0pv2t7UyhPLVCqLgKfhCzUfNfKM
ju7y0p3Hn3+zuvZgbe1huVT9/vvvMC/wYmPrS4/1af5a21b/QivgePv2zcbG5r07D1MkynCSSDCRSEipkra0Ne1o2LGjYWdbe7tMrnR39oCc/+tPH5oM1lAwuv2jRiSL7q5+2H4AEY0QU+MzDR81DA8NHzl0tL9v95nTF48cPbV37xEoy4WhG0PXJ66PzJ4fvrF735GBPQeNZvv2HU379h++fOXGgb3HDHp7O1fEEUj/9FHD9qaWPfsPnDl9TqVQX758XW+0NrdwGprbzA53plBOMfnBg4c/bG4ViTVSsYEvVBttXdfGvPnaytLaw0ptuVpdXqgt/vTTU9Ch/pHq7/Pi71igs2/98ouvSsUFJlMCFqOjN8wWbW9fZ2tbS3NrC48v4IlEHzY0q3Smm7cmFDK1Vm3gcoS93bv27D6Qz5WpFAM4rl6+rlNp49E4QzMAK0mgWkvO+SKTk/6pmdDVUe/kbHR8JugPE4EIcfb8MIcDkyWHvor4ig8/aNrRCDTkIoXG09sfjicCgeChA4fhJlGe8ASSdr4IWACIeCp99vLVBi5PrjDt3M7fu+9kcf5OprzMlJdK86uZbKmQr925c//FC/abSkDhd4FA28Z+SMS+r/7Wtz/88B3oMD0zGY6EuhAeXb2nT1/46MNGgRBVIAyyYGdD++Ejp2/ffTAXCFntTrXWYLM5Dx8+Nl9bDAUjyWQK9bscKWN0empybs4b9s6GpqcDsSjlnQ2HQsnJKf/w8M2jx8709u/RG21ihJhQ2soRfLC9sb2Z17SjBcUeTVFmo/HY0aOwuyPXRydGpkQisUyukMnUO3a2Od19E1N+Xyi299BhrkQES6bX25lshaRySSpXri3XFlZL5YVisfbzzy/qX78AEHVqbM2RbZgz3DY7c/YDQ9Qq7D6w+I+aBS88e/Y0noCbGJueHTWbnFevjtdqa83NAg5Him1rq6ipiX95eIRMZ1PZ7JUbNwUSqVgqc7o9N27cUqs1R48e
n/MGpWLtnDc6OeGjUnkkF78vNjE2d+bUpWtXx5z2DrgvPlfc2sZvaGzbid7MgXBYHB1BX+TmtRF+Ozcc8Dts5qOHDk6OT45cH7s2fJPP53MwAomSx5XuHjw2MeG/MTKp0Rtb+ZzGlrbpaX+GKcbiqUKxmsuV699+qM0vb31Tif17G6DA7v1dPll42L9nYyHYYJ/2vkb2wP7/icXGxvqzZz+XSvlYLNzUzLl+YyIUSoAUXK6EwxG3tQt3NrRduzYWiKDaSh86dlyu0qCm+vCjHVAULpf9rFyrgWU+cOXyrc6Ofninw4dOwqS3NPNaW/jQnIadrehcjkgiVRlN9q6eXUOXb0zM+BKw+nQ+nWJOnzwtFPA7O909XZ0zU9NBf6S7o9/l8pw8daa5CbHKP3LkLJ0uXhy+0cLhGe22q9dvFYo11IwkTHdpPl+oghSrt+/94k/7/nnD5LFh/66NNZvgBbD4x4Y6//mLF9ksc+vWTbFEMTk1N+sNyuQalKFiiRLodHUPUHQukkjGSPLi5SvN7TjSe+bseR6MgUyh1eq5XEFjQ1tTYxunXcjnST74y06xSAEuIKH09+0Z3LX/4oUr+/cdGRmdQv6+cm3kxOkLnu7+7v7doIzN4jp04JBMJuW0tyrksr179u7fewheZmpqNpmkVUrdBx80SCTqq9dGRydmL16+NjI1PTHtvX5j7MTJcydPnb84dPXc+eEzZ4euXR8NBKORaGJmZnbrY/cMTacXFhbX1u58+umnn332OfshK0uHfwDsPRZbosHSg/369wYi5bnZZNm+vREjvjUyiTVsbGpvaeXtbGjtH9ibyRTZL+Tk8mcuXGxoad23/+CJk6fb27mHDx/t7u4RCCQ93YM93bsAhFAgM+itmP+loWsw4wP9e3Hc7epGV2uMno7ejq7+XXsODu47fODoyXNnL126eOXgwUNXr17p6upobm5UKJR4/80b47MzgUiYuHF9VLK1HlgVgUQuU2klCg3c
Fqp7LBW2fIFUJFZgh8sTt7Tyd+5s5vOFcvh0gUij0alUGpVa6/F0dnZ29/T29e8aOHPu7PjE+OycNxKLPv70yba/f3Ma8QE83m28ZhH58Yef9+45dODg0aFLV0bHJnc2NMvkKhTL7Rz+mbMXIjEiliQTFH35+g2RVGZ3uDwdXWfPnicIMhAIqdU6AV9sszqtFofV4kRFv2N7IypKjB3m0mZ1azUmq8Wl11tBMYerS67SG8wOiVKr11ugCBi0QAh94HI4SOIcu80NTonFymNHT0fCiYmJWblCDd8pkCjEcrXaYBFBRPgSk9nhcHZqtCaL1YVutbmBtdXqtNudvb39MMFOpxv7kHmn06PTGkxmixkljtmMuxpMpjYOhyBJYIFo+Y/27OdXG+vvPv/sbyaDMxSK4Y0IgbZ2rkAoFookjU0tF4eGk2RqfHoGVfH+w0dUWh2AwEs3b44wTC4WS2AyYrEU8Pf09CFkFApUIpB6444dO1ta2qAaiJ32NkFTUzsW84OPGlGgq7QmsUJjd3R09+w6dOTIidMnhoYvXr1+5eKloQsXL+v0lrY20fjY7My0j8PhSWXydg7qMokNkzc6DCYHQthm9+B0uUILv48OJZKi/jPazCY70NTrzDBBWBinowMdzhB22eFkn7C6PZ29fQMisTRFpdkYefz4U6/Xt3//ob7ewa7OAavFI5fp3c7+cmWho7Mb8xdLZJhtQ2PzzoYmHEHinPUH6FwO2mm22eVKVUtru9c7FwyGBwYGMVwwEx0K0tjYLJFIAQTEz2Kx7RrY0+HpQ7CcPHHuKhvsvstXb0XiJLQzRiKoC3O+4OT09MTU+M2RG+jXbtw4f2GYVW6ObPeug3a7y+3xjE6MavW6hpY2hdqg0Fgttg6QAl2lNoBoPT2DYATgwK8gGuZstbrAR2ChURt1WhPQYcXLbNcbzVqd0YQqwOURCCWxOLFtYmK8vb2tra29pbm9YWcLdA4F0v/3b3/p72Ufq6vU
muaWNr5A1NDY0tTcun1HA6CZm/PTTDbFZIevXZfIFbiWVmdQKtUDA7vBhQMHDg0NDV+7dmN4+MrcXMDnC259nypIUelIJI4SZnLCCwmAW7t2fQRea3DPgb7Bfbv2HXK5u212t9VmV6qVVrsFeHL5/F2D+5QqPadNopTpJ8Zn5hcWjhw7jAIFvACbZCqTzmDD+oMUELWOzj6zxWkw2QCHQgmBMBh0Fmi2UW/Ta82YGsJTqzWxKmawYkejBRZ2s8UhEEopOrtt+OxBpYR3+MAhqxkxbPR0dlitNn67vMd5+OLFKzwBny8Qc7hioUAhlWgcVs/e3fs7PR2FfInJFI4fO23QW4A6ShIQ+P69R4U80nu2Os9+W/jqtVvhMDk+Pnfo8Mnde/YN7t4zsGsQlRiPL8a9sW1r54PMg7sP7Gxo+f//1wc6vVkoksFoDwzuPXP2UnMzTyBQuN39SqWJ0y7Waa12WwcKX2hKSwsHkYjI5/GEBqXBbrCb9Ba9waIxmFGqGCx2MEIokNrMTpfZZUSsaM16lcFhc9utLoVcU2cHtogdixnlUieMbzSR2nZz6Fhb40duh1utNBpNVoPRYNAbxHylqFW/Y3tTe3u7WMyai7ZWEfiiURknJ2daW1p97Bf9k2dOXcBFeVwRCIXyqbOjR63UyxUqpFOxRM7lSxoaOFsOTdDU3M4TCk6eOr31jFvC5YkAR2NTm1Sm6u4ZACg4gn2FUosc0dLCFYmUYhH7MbJYrFUoTLBYWAy4kpZmLpZXLGKfEhsMRuQICUekEMjFAkiSRa7WqXRGFHXABZBh2hKhTCpSGLQmlUKLbtCYzDoLoNEo9cjQEA5sQQ0OVxiOJ7edPbJ351/+LBfjFYtSpVFrlSoMSab58H+2cpo5HKhdY5uQJ+W0ibd/1ALu1RaWDFbz3r0HKqX582eHUI9oVHq5TP3Rhw1trTwYyqamliYMmSdsauY2N/Obmnjsp8EcQXNLS2NzM5YdClfHAiMA
Ruj1bxvIFRqQFqYGBGG/tSjVGo0uk8kjlxtRs0HFwHBkaKyn3YbjFrBYIBTJ+TKVSGXSW5Uo8i12nclqtrsgnGqlTqnSwaGr1HqEA3BRoktVFp1FI1FrpBqz2eFydrpdXZ1dfRhJBFjcHDrPaWh1WDrt1i61RgcsbDaTVCzz2Pv0UrWwhdPe0M5pQlkm//OfG7p7B5fu3r01MyGSykul+Rs3x7CYPb2DGo0RWuVwdng8vZAP5CrIbWdXv83WqdPZlEoD5NpkNiN7qTWgHUDXWaxOzLl/YA8gwA6C1mpz4SWsEphis3dYzB5gYbf3qNU2i9ltBi5Gh8WMVO3U6UxghE5nQMIyq00WtUWnNuJcZ0e3zdWBLRQEWFgdHjZ9290yhUYmVaGwNqpNepnOqjK5zS5IBqIbWHR19WFULBaXTp4QtQt7O/cgiUICrQ4MS6eQymxGt0NrdmiNSqG86aPW5gbuzp3t3X27/Yn4ueuXUS/q9ewksYAmkxM7KpURHTM3mm2Qb6vN4fb0dHbuksl0mBiwV6rURpOJfYRlskE1ECnYdnX3gxSAAx0KAlCkMiXYocOAVSaxWC0SaQQClUyqk0m1SoUeWKD3dPcbDCwcSPlGJXTCDL2QydVgBKihNVpMJptRb5WpdWKtTm9zKrWQUi0Ka4Pa6NDZrEr2LNacmB29Pbtc7i6wEuls29jlIWEbd0//wU7PLpgCm8OsVElkYplV77Fh8bQGMxKQzmbQ2cH2No7ww6amNjGcjrqhkduOIoUr1ertWiy+2tTWLsY+ly+WymXAAgEFXighQ0YYoQ6d3uB0uwEEBg0UsIPxYQdBgckDCywsxgSi4US12gTh1Ons4AXg0Glt0E4ECMyC0WDr6Rkwm61I0hZUyiaHy+h02T0GoxUBAiCkSo1aredxhEotRu0Eb5Q6o0SmkoihGXqT1mxUGdTsszgzYqTD02N3eKBiLC/Gr12QC/mDfXuc9m7YKovdDEdihjKrOiwG
i9VkAeQ6tbnD3WezdiDw2lGAKeRGK1R8QGd0KjUWvcmlMdj57MegNqOlw4hLWCwKpQZJ3uHoRgdxgL0dgu3xwBFCKRAOYAoGgYgANIADuICoEqlya8coEMgBot3ebTC4jEY39tUqiL/TbvOYjHa1ijXURiOsI4sFeAF1xOk6sxWQiuUqqVQlkyiFEnm7ECZOb7I4gBQExWSyIxUY9Ga91oQYQfljMtowEtx3LhDe5pu4vPMv/6O3qw95GOKv1WMRdF2eXV22g0qFxmSx6PQmhYL9Ux61yqhVmyRimUwiFYoUar3TZIODtsiU5na+Amxp4ynM9h4NaIox251yhQ5zQNToDcj/bk9Hh95otNhcGDRIARYABeyDESKJAkdACoQJOIKXzGYXuCASqWUykKvHaHBKxGqNmjXv4AUyAiwcYgQUsmjNuzoGrAAIl7U6MHOJSgNnhXlCVmQKNTgCbXK4OrW4o1KDccthlg2Wrb9b06Oq9nT0QNFnfaFtEzfPi3ktsAxIhxr2ywtivd5k0ruUErtUioA0sB9GSJRIqEqFQY0wQ8JBkaMy2Fy9epNTpbNiq9SYpQo9tlqDA7e02u2IZAwOEgERUSr1yNaezi6URjKZGkYQs8X6i8UKuVyDX3GQz5cACOACLBAmMrnWZuvQ6+0arVUuN2i1FqlMq1DqbTDUegumqkJhJpGjy4Qyt9Vt1FtQjOiMVo3ejM7qBfsg3qBRQjzYmkjDfhAnFYpR0BkNJgS1WafBuioAB4S/pZXLYjE3c4vHbe7u7BDwRDqtWSrRgtVGo1MsRXkHXDAZDVaArZrURnSHvUuPWDBaMVsoObYGpA0g7/JgH8beZLahTEKBBBOJlUIpBVGo+yidDtdXQr0ddk89yWEoMEVYBug8kh+wQLwAKSCCsxBNOIh9pEuVHlujw92Ja7Lc0ZlxCrIsnKNaq9XojDo9rKQV8Ol0FrUGi68Q8WU6uVMh0mvkOrlYgWIOwBmQSpQmk9YG
cwFSsLCq9aitJ2fmtk2NXwUWe3cPajV6VNkatRlXhPgDOZlMCUuDvCWVKrb8pQ0xJhIqke23olqHdcbkpTIFSlUAIZMrJFIEkKK+vJg/OtiBubEcgTgig6iNbFLUmupeCDvoGBNAQWbBZfFmwAEvCHhxHQwUQQrJE8J4q3VQIbwH7wQQW7DaYDS0WBOjxQB5sXeZzW69wYr1EEkwda1cZFbLLXIJUq5Fp9HjEg6rW8CRQgFRkqBaAaYAl/10/uqNbcG5if/x3/8NWchudTjsncAC0MIOaRBsbLRpkb0AClCUSlSoahApiF6MFXWe2YKwN7GZ2IbqiGUK2IGkCPsAUWS54u7CO2EiWEOB3AZXyJbtLpFQBnuGiN2qlDS4ODpQwMyxxYn1RIN9qCw6mAQSsCpodSjVOsCB02EZcboBvtvM1qYudw9GjoWE0wFtpXIFsojV2CMVIqjZ0DbojHoECJKjyd3dOeBydWJV0IEFwL04fG1bYG7yz3/6n309fbDrBw8ch1mC1GMcWHNEBww/tNpigXQbEEEyKUjpRJi4XN0HDh7xdHRviWJ3/8Du3r5BcAEQYBp1K4V7YIVRXG3VV3DTrECCAnDQ9cljMh53N44ADug5TgGPAN/W3fU4BXOuo2OF8kFDnZ2ezj5cFpYRjJDLQDnEo0cJgwhPrTLz+UjgLhgTlUqP8SMNy6UWjQrvVINHDodLqdTKpGAatLQLTMTCYBi4GvLI5Ws3t8XDgb/8+U+wR2aU/QabxQKdZ783ZXPYtzy/ecvVgBEaFALQC5ezh01vZqfNDjXsR7GMNent273/wFGc2NTMQXbo6OzFfAANsmad85ik093JLoXZWU/sCDpIF+DAr6i4MCbgiFNweh0UdvFRk9tc2NEYbOhylVEq1yG/IEkjv5pNLpAUmRJnQVa1WoSwR693azQQZj3I4nT26jQupdxks7oBOjiO5ID5A0HAYQKmJju4CV1DCrty/da2SMDfsGPH/r0H
MT5kLKhRb98u1CVKtUKvMwAIaJpOyz78wEtgR2/PHlBDLEaNroezhPPHAiJEsXZ8gRRBi/iCuYRA4HhP7y5ggR0MF8ECyrD3trr6egcxDgEfmqF1OjpghAENFrxOK2xxCnCEMUfHQJHcDRY38pRYghSGIaEwsSOcYcmQPlBNwF1KJDqdDnnUZbV2IQ3hHIXCKBEbUd1hkeA4hCIJsgnGYzDYFQpEqwULjPv29u6Crt8YmdgW8vk5re3dnb3wMDarB84Uyg+DYLai1NepVch8UhYL8EVl4HHFRgOqXatWYxEKURFgKeBeVDKZtr1dBBtiMDgcDpQednR2PVFesU8TDHWvCVFCRKADCEAAlkI4MRoELTDCG8ACOFTwAmfVo6y+Dy+n0TvkKpNCaVKrLTweiGrSa+1qpbmzsx+Fv0ZjFYthqx1SKd7A+mAzW7Y4VCqH1d7TP7AXyPb09nO4AtzCaHLI5TrckQ0QFHp2N5crGr56c1ssHGltau10d7scnZ3s0/cuuE+M1GQxYLnd7g4NCja4CAu4jWLGhgUxGhwSiVYkUkGr1HWtZS2A1cCa7D4tXIbOBDNXxwJsx7aeWViBtkBuPOAgtgACjABpAQoiBRQAajirjiNcBvgFGcLoLY4epcam0QMXjxYQqK16rcNq6lTKTJ2dA3AiGrUNKBj0nVIJMr0b73E6u+DftVq3Tu/ErS1WVt21yMq4tQMvdeKOWBXoFGoiDI+NkRSREAtFPV39GJnL2QULgATpdDttDgveCL5iEhim2WzT69knH6APqnuV0iARY1kxDayzWSFH7aSRyaApSqvVjZIckwHPdVhzm2vX4H7oMRYKDq+zoxfqgDDBINCxLOigBq6M8hRYwFMAPpAWqglMYZmxbhZXF6sXaqNYqtGiJlRvWWEZJJN9wIv3w6dCNbVah0ppVSgAhw0pHEd0Wo9KxfoRjMdowowAB+aEkt+59dm9GSsB86ZQaE6fu/i/AftvOgwNPdxU
AAAAAElFTkSuQmCC</ImageData>
</EmbeddedImage>
<EmbeddedImage Name="image006">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAALUAAAAsCAMAAAFj4zmGAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAJqUExURf////39/c3Nze7u7uLi4nFxcfn5+f7+/oiIiE9PT0xMTDs7O+3t7eXl5Tw8PDU1NZ+fn9vb2zc3NzY2NkFBQfPz8+vr60BAQGtra9nZ2bCwsGVlZZ6enqGhobq6ujg4OM/Pz/v7++Hh4TQ0NJubm2xsbFFRUfLy8ouLi5ycnLGxsWpqakVFRXx8fOPj45iYmEpKSpKSkpWVlcjIyMPDw+Tk5JeXl2NjY1JSUlNTU2BgYH5+fqSkpMvLy+zs7EhISJmZmU5OTj4+Pqenp42Njampqaampnl5eefn58nJybKysnV1dW5ubo6OjpaWln19fWFhYXZ2dlZWVubm5qioqEJCQltbW/z8/Do6OnR0dFhYWNXV1bOzs0ZGRvHx8Xt7e21tbWlpacbGxtDQ0FdXV1VVVfX19WZmZkRERO/v71RUVJqammdnZ/f39729vdHR0dfX14KCgpCQkMzMzFpaWt3d3YWFhcrKyl1dXbi4uODg4GhoaNTU1KOjo0lJSWJiYkNDQz8/P9bW1pGRkYaGhqysrI+Pj5OTk7y8vLu7u/b29sLCwpSUlLS0tH9/f9ra2oGBgYeHh+jo6GRkZIqKind3d4mJiW9vb/Dw8MTExDk5OVBQUMfHx3Nzc7+/v+rq6np6ere3t4ODgzIyMqCgoKWlpdjY2EdHR8XFxfr6+k1NTTMzM7m5uXBwcK+vr3JyctPT052dnfj4+EtLS+np6dzc3D09PcHBwa6urvT09MDAwNLS0l5eXqKiot/f387Ozqurq97e3qqqqlxcXICAgF9fX3h4eIyMjFlZWYSEhL6+vq2trbW1tQAAAFqdpgAAAADOdFJOU///////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8AVQahbAAAAAlwSFlzAAAXEQAAFxEByibzPwAABb5JREFUWEftWVuO5CoMReKHZbEZBP8Ri2ABrKA+2QUru+cck1RSqurHqHvmttRnuhKextjGdhj3eYy+CleMlgaeLozuveuVbSGgBdAAr+efw6g8ARbpp86kZxkV6w6XXXEtzxDGyLdJdiL5SeCmzpHDiGAbFN7E51jnsm/iQi5z/Gq5d2zrTdiGBAlzjDKwE0kkck7lcJ9Q4cLJpTjdUhInjMZSBhk0QhITw+vWMGg630EpV5T/At4RywN2obxCXG9hl7nk8Qyn0ZsrvUnlZ4YuVn0fLYHDZCigAbnhUeqNzFV0yO58dNW7URqMbowbBpvFN5wB8mW8QS0kAdophqbVOBAoWQuSnv4V7CEeo2kJGABEki8szYLWGCo0WME41brFgHd1tbspff//UN5R6J+jujwu5vCFgNI30+eOmlM/n893UF6zNknYVGrQOqbtK16tl57RBtkB8xmjetrXEjuqVnBBk2A8fIcRGgzG25Y2F8x6Zm+iXekg0O4Dyci2ASxMYyQWdXhb8J0xBZ0wZbzRI9eDSgA7IoeyzACVjfvEe/fdXeRAdrMSsGgDBVwU+TejDWb5g2pqBG2uy06RAk06O6IfpzovkgA5X/6OIqmQP8SV0Wa00TZHg19ulbpLcBUeHduYfhZEv4QJvrl88RigU+EFfvG38OyUfBFkRd+CepzBr8bE+V7FL0blEV3n6Q/xKr+KYPk4i4ZYUvz4MXrwzCc0pqmXXpYfz+ybeClPuCjQv3PZ
tb8nBvkyED8nHTPdKHrT4e6TBP/EaF4zt95n0OPRwRaVljYkIWELXMB7H7gu8sWGvSGfAJqzTMn5EOgE2c7BmwUPsEtwEv6sSCDbFnH4elg8vGjcEApqHfg0AIdzwKNil/GGMRGEFAPgVunimZSjZuQYVJBlCbsNoioqiiiMAg1luW4IUPvXD8Lnm4/jLZ0pKBJI5hQN8Md2YZAlUFukN1Rt3wwKePCXpgvaHknGEJk9rzFGGNhLRR1mKyjO4hUjSRpVIw2r5Js/xLmufaKiPisSs1B5gIKwqRSw7GG4DYWD9M41clJN5w9cU1Cq7CmJ6sDS4w6j6TJNGjKD19oGpkvWlM/ILSIKBkREkYDasF/vE7/9KHjWSUHYEHtNyuhebbWnJBG2jrjpwpzVz0lTw+cJvxsD0mrU42Q223ozHxK5wyjTO+Dr9l1O9Rf/CNtuJz8JYR2bHwU4w0v8/QnwzsOZfCaU/w9Az9XoXOFEfwwm46+k/c/EXWPZM5aPAgFSH5kMlOVFbJijIOgws/iOjSEmIU6vygehGMyzSHE/zbe32+5h/HepI33eGySwLXbz+SbjjpP6mJ99AMxaPoX0UVn7SG71EcZLEqYqlvqk+GAnyFk+pT/Y2ntZyGNM+5isqzgWyJDOYuCHz8L9W4GgQRdl6Au+pwwKkqif6eYbCZid4YOA5WFmFUvGpqUr3/JoyOaAw85mST1Axft1lu+FdduDDyOKM2NGxSPp01nEF0GyZut78IPMEQFdMlEy7IRmwLavEG1We5Y3QtMh62j8ZrHJM8eLUSlDE9ptN711Y97XRJCubkIUhRN5UQtwvztzBGccV1EHHrVcOUTL8BoNWFeRWMJ2CK7EzNHgKtJmIK7t7NYL8XDJtpoB6wkjdYOpo58P/1XUBM4iHeCqLTw5UTgAkglWzKUvtZ651k7vXANboI1cuV6iPTFldv3otfOlDrIPmOuz7MT4WgDId6kn7cU0vjPxBtfztszvqaxh
lVIFYD04EnuDcJE1IK+xpE1OYTNXSZ+H86LQYN/amCzir7hGhxyp9zdTDTTP125Su6x5Mm0CtrEOwCXOPXIN4EQfMI73p+5lT+DA0LYJRZsoICQg8n/QthowjTc0VjBPwwE3rKj0ZnRsEx+LEXQKLxSsQKU1O2EFh71kbh0eCCV+ClYXdY6e2CmOS8j7dXPB8LlU+4tf/Cg49x8hVYhTNimphQAAAABJRU5ErkJggg==</ImageData>
</EmbeddedImage>
<EmbeddedImage Name="sntndr">
<MIMEType>image/png</MIMEType>
<ImageData>iVBORw0KGgoAAAANSUhEUgAAAHQAAAAcCAIAAAA/XwxHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAg3SURBVGhD7dn3j5fFFgbw+z+BlA0thCItECB0RDpID72DokJUei9GpdfQlVAkgKjIEhu9Q+gdQaTfz+55ee+XbSwgCcnd54fNnJkzZ2aeOXPOeb/7n6cleGMoLrlPnjx5/PhxIpSgeCguuXv37j1//nwilKB4KBa5d+/ebd++/eXLlxO5BMVDscj9/fff33nnnd27dydyCYqHYpGLVuS2aNHi4cOHSVcJioEXkCvOXrhw4eLFi2XLlsXvxIkTk4ESFANFkatCGDVqlFSmMWzYsDJlyuB3x44dyfD/AW7fvn369OlEeHkURe5ff/2VlZW1du1a7atXr9aqVQu/1atXf4XMpozj/oy4J0h631bYod1+88039evXnzlzZtL78iiK3LNnz3LVxo0b37t3j5idnS044Ldbt26PHj0KnRfCRr/++uuePXsOHDiwd+/eTZo0GTRo0M8//5wMv5Ww52+//VaB5PgLFixIel8eRZHrUVStWtUCH374YbibyyRCMYODWUOGDGnZsuWpU6eI9+/f3759u+mffvppKLydiMNeu3atdOnSPCM6XwEviLljx44NNtevXx89Xbp0IU6ePDl0isauXbvsL5hNMXXqVLeVCK+HO3fuiFHBxb+IMCiT2zx/is5XQAHkMn3jxo0I5Ldu3apXr55QUKlSpeDo+PHjgkO/fv0MvfBU48ePtz8ukMi5UDW/zlvLxCeffLJ58+ZE+LfxCuTmIeQ5co15toJjtWrVBAQU6/zll1+QC++9996DBw/otG3blvPWqFGD5rZt24qIv3PmzKHJVTNX1c4UA/l78iC/woYNGxj/448/Evl5pPqZEwvsLAzyeWHkFj09HU3IJUsybdq0sV1Apb9pqJ09e3b0z5o1
S0/Xrl2D7uhs1arVDz/8UOB63L9ChQp0hg8ffuTIkQJ1/v777/nz58tyovOhQ4eS3txHI96dO3cOfR5Kp06dhCYW4J9//pk3b56T20OfPn347+jRo48ePWqW0T179ohmUuiSJUvSH5uif+XKleL+jBkzJCuzrly5EqMBOuKYuR/lIjwj85H5hrLVjz/+eOjQoUr+9EXGRHnIZ0Hfvn0l/JMnT+rPIdfY8uXLGUr5SsE7QkGoNdqoUSMWa9asmQznIma5YWo5Sz0PX3e1a9cOTQz+9ttvmWoY79Chw5o1aw4ePNi6dWvB59KlS/rdVtOmTU1xkhEjRnz55ZcDBgzA5rJly4zyqe+++06RRMEhTV+9erWNeUMTJkxQkh84cGDFihX0EUTfPY0ZM4boIxN3X3zxBS9x6wohUTtnH7ln9MI6duwYP1FxtQ8++ID9RYsWhcLdu3d5lYs5c+aMbat86tSp43HD4MGDGfe3R48emH333Xe3bt1qSg658dNBfmb1OG1cAg/SVuqmKS4TMTcs5oflOZolQxkdKb+81SFDxIjRyJymqK+Jn332WYz6a+vildCUM/PZtjPDgmOXKlXq+++/16b//vvvSxgapgigqBTr4jjw66+/mr5x48YQxTcHTLmG69evoyzCAiPuzAXHEOixc3dmijdhY8Q///zTkLuPT4Ecck2zTGHgUPGTggib/wIy4a1ZkmaBsOTChQurVKlC86uvvopOAT29khMnThjyhkL0zInBVID/Oq0vkRB/+uknCg4WIjgnh0VKiJzLjaZb8vhU2alImTXeqq2zWbNmnkjm/jMTGrKs1atXL/oeB2gwjpyY4hZ5feZ0yCG3c+fOZhYBb8G0zz//PJELQcOGDfNYzw8M+saTDMW+pOvpUzHBOxWtGFm1alV0ir9Ezz9EiDgbcQPykxsQkbm/F+bA4li6JeRmimIFa5MmTdJGNFPTp0+PoUAmuZyAAh48FC8m4Cx0Qtmb5tcFkGvT
ZhYG3srd7JgjJF2FQFYJoykEE/kqEZ5hypQplG/evKktugnEsGXLlsOHD+uXc0LtheT++OOPFBw7RHC2pUuX8iAZ2PP31IT7osmNgl2bKTEqk50gVwbT3r9/PwUeEEP5gVxZtwByhWofUSYX9uorVqwokwhJiZwPJrLuezyMplDnYi0RnmHu3Lk8Vx6Xf8TBdu3aRb/czZTUFGJwXQS5Mg+FzLhBmUIEPkCWXaUHlo4sVyC5NoN3ETk+9AOun4JQps23RNUGDRrkoS+FWyyYXJBq1TRBU36Ks7KyKleunL8/VUZQmigyYetimZ0lcu6RhIXYschQvnx51YI9gbfMlLcZl8QgMc1O/ga5ac4RfK0u0Mt+vIxzxRPMzs6mz0jz5s3x5fHyHvqiX2bgkuVYmzZtWohKDnPVWHZLx2hUUP3795f6iFIfURhJLbgSKTTaDpWZ7gIJuWDOpk2b0GRJViCIi0YgFaMBCiabKOw7QqXJmgtX0EjHOEWlsBD78zf4ouBqRUlc1K9f3zZENH7HvljkbDSxHMWZ+kElFPbFEJ+L5cqVM4RTvl+3bl0GOenIkSPlH20J/ezZs5FLPT5bslua7LDmAtatW6fHEkIqfYVm9+7dlcmumUvJWp5aMO75MiKJjRs3Tk5TJvo+lOsUhTgR4qMSj73B/8gNGHMwwcU9s5vyaNVogFviLyoqKaXo/00IuKhZvHixjSo5bS6Pg1tu3759rsei2pSjsFcqCKnCrnx17Nix2BVNPUpgZKXTtbGT/nzhCarNxQcP3LuOstoTUeQLF6DuRiVnZ4c1K1oinIMmT+TCDMZ/Y+0hckMKpQjjviyCVj1W3Llzp5xsrfjtOzQhL7kpKCmevCkewWvY8lf2OH78uPWMZlopQYEolNwSvD5KyH2DKCH3jeHp0/8Cp5roQN/bYTYAAAAASUVORK5CYII=</ImageData>
</EmbeddedImage>
</EmbeddedImages>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>9e79012a-f197-4df4-8577-390bbdb5c026</rd:ReportID>
</Report>

View File

@@ -0,0 +1,768 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRazonesFinancieras2.aspx.vb" Inherits="Finanzas_RepRazonesFinancieras2" EnableEventValidation="false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtTitulo" Text="Razones Financieras" runat="server" />
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-primary" runat="server" OnClick="BtnConsultar_Click" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption ">
<div class="row">
<div class="col-md-12">
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
<div class="col-md-1 " runat="server" id="LiEjercicioDdl">
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
<div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
</asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always">
<ContentTemplate>
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
<ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpEstadoResultados" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVEstadoRsultados" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GVEstadoRsultados_RowDataBound"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="2" data-heightmenos="300"
Style="text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
<HeaderTemplate>Codigo</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="300px">
<HeaderTemplate>Cuenta</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVRatios" runat="server" AutoGenerateColumns="false" DataKeyNames="Ratio,Tipo" OnRowDataBound="GVRatios_RowDataBound"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
Style="text-align: center;" GridLines="None">
<Columns>
<%-- <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
<HeaderTemplate>Codigo</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="300px">
<HeaderTemplate>Ratio</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblRatio" runat="server" Text='<%# Eval("Ratio") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivModalGrafica" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label ID="LblTituloGrafica" CssClass="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-2"></div>
<label class="col-md-1 truncate">Grafica:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlGrafica" runat="server" AppendDataBoundItems="true" Class="DdlGrafica select2me">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
<asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<br />
<div id="chartdiv"></div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="DivModalGraficaGral" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" style="width: 1300px" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Análisis de estados de resultados</asp:Label>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-1"></div>
<label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de gráfica:</label>
<div class="col-md-4">
<asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
<asp:ListItem Text="Lineas" Value="2"></asp:ListItem>
</asp:RadioButtonList>
</div>
</div>
<div class="row">
<div class="col-md-3">
<div id="grafInfo"></div>
</div>
<div class="col-md-9">
<div id="chartdivgral"></div>
</div>
</div>
<br />
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
<script src="https://www.amcharts.com/lib/3/serial.js"></script>
<script src="https://www.amcharts.com/lib/3/pie.js"></script>
<script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
<link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
<script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
<script>
let cdatos;
let currentid = 1;
function HandlerGraf(obj, evt) {
$("#DivModalGrafica").modal();
cdatos = $(obj).data('values');
if (currentid == 1) {
CargaGraficaBarras();
} else {
CargaGraficaPastel();
}
$('.LblTituloGrafica').text($(obj).parent().text());
}
function CargaGraficaBarras() {
let data = cdatos;
var chart = AmCharts.makeChart("chartdiv", {
"type": "serial",
"theme": "light",
"dataProvider": data,
"startDuration": 2,
"valueAxes": [{
"position": "left",
"title": "Ventas"
}],
"graphs": [{
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"valueField": "Valor"
}],
"depth3D": 20,
"angle": 30,
"chartCursor": {
"categoryBalloonEnabled": false,
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
},
"export": {
"enabled": true
}
});
}
function CargaGraficaPastel() {
let data = cdatos;
var chart = AmCharts.makeChart("chartdiv", {
"type": "pie",
"theme": "light",
"dataProvider":
data,
"valueField": "Valor",
"titleField": "Texto",
"outlineAlpha": 0.4,
"depth3D": 0,
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
"angle": 0,
"export": {
"enabled": true
}
});
}
function ADSBegin() {
$('.DdlGrafica').on('select2:select', function (e) {
var data = e.params.data;
currentid = data.id;
if (currentid == 1) {
CargaGraficaBarras();
} else {
CargaGraficaPastel();
}
});
$(".rdblistgrafica:not(.clicked) input").change(cargaGraficaBarras2);
$('.rdblistgrafica').addClass('clicked')
$('.DdlGrafica').removeClass('DdlGrafica')
initamgrafica();
}
let objetos;
let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"];
function graficarshow() {
$('.btngraficarborrar').remove();
$('#C_Tab_header').append('<a onclick="cargaGraficaBarras2();" class="btn btn-success btngraficarborrar" style="float:right;"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</a>');
$('#C_Tab_body').addClass('showgrph');
}
function cargaGraficaBarras2(Titulo) {
$('.LblTituloGraficaGral').text(Titulo);
cargaGraficaBarras2();
}
function cargaGraficaBarras2() {
//Hypgrafica
$("#DivModalGraficaGral").modal();
let infogral = $('#grafInfo');
infogral.find('>*').remove();
let items = []
let data;
let icolor = 0;
let tipografica = $('.rdblistgrafica input:checked').val();
$('.ajax__tab_panel:visible .chkgraf input:checked').each(function () {
data = $(this).closest('tr').find('.Hypgrafica').data('values')
let name = $(this).closest('td').text().trim()
items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
icolor = icolor + 1;
if (icolor >= Colores.length) { icolor = 0; }
});
objetos = items;
$(".chkonchange input").each(function () {
let _this = $(this)
_this.change(function () {
let _this = $(this)
let id = Number(_this.data('id'))
objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
ShowGraf2();
})
});
$(function () {
$('.chkonchange').tooltip()
});
ShowGraf2();
}
function gettitlegraf(infogral, id, Color, name, tipografica) {
let strtipografica = '<span class="chksino chkonchange" data-html="true" data-original-title="<div style=\'white-space:nowrap;\'>\'B\' Barras / \'L\' Lineas </div>" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
let contenedor = $("<div class='row'></div>");
let divcolspan = $("<div class='col-md-1'></div>");
let divcolor = $('<div class="col-md-1"><div style="width:20px;height:10px;background-color:' + Color + ';"></div> </div>');
let divtexto = $("<div class='col-md-6'>" + name + "</div>");
let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
infogral.append(contenedor);
/*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
}
function ShowGraf2() {
let items = objetos;
let series = [];
if (items) {
data = items[0].data;
series.push((
(items[0].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[0].name,
"valueField": 'Valor'
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[0].name,
"valueField": "Valor"
}
));
for (var i = 0; i < data.length; i++) {
data[i]['Color'] = items[0].Color
}
for (var indexcol = 1; indexcol < items.length; indexcol++) {
let cdatos = items[indexcol].data;
let valueField = 'Valor' + indexcol;
let colorField = 'Color' + indexcol;
let tipografica = "column";
for (var i = 0; i < cdatos.length; i++) {
data[i][valueField] = cdatos[i].Valor
data[i][colorField] = items[indexcol].Color
}
series.push((
(items[indexcol].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[indexcol].name,
"valueField": valueField
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[indexcol].name,
"valueField": valueField
}
));
}
var chart = AmCharts.makeChart("chartdivgral", {
"type": "serial",
"theme": "light",
"dataProvider": data,
"startDuration": 2, "legend": {
"generateFromData": true // "data": data.map(function(num) { return {title:num.Texto ,color:num.Color}; })
},
"valueAxes": [{
"position": "left",
"title": "Ventas"
}],
"graphs": series,
"depth3D": 20,
"angle": 30,
"chartCursor": {
"categoryBalloonEnabled": false,
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
},
"export": {
"enabled": true
}
});
}
}
function initamgrafica() {
AmCharts.addInitHandler(function (chart) {
function handleCustomMarkerToggle(legendEvent) {
var dataProvider = legendEvent.chart.dataProvider;
var itemIndex;
legendEvent.chart.toggleLegend = true;
if (undefined !== legendEvent.dataItem.hidden && legendEvent.dataItem.hidden) {
legendEvent.dataItem.hidden = false;
dataProvider.push(legendEvent.dataItem.storedObj);
legendEvent.dataItem.storedObj = undefined;
dataProvider.sort(function (lhs, rhs) {
return lhs.dataIdx - rhs.dataIdx;
});
} else {
legendEvent.dataItem.hidden = true;
for (var i = 0; i < dataProvider.length; ++i) {
if (dataProvider[i].dataIdx === legendEvent.dataItem.dataIdx) {
itemIndex = i;
break;
}
}
legendEvent.dataItem.storedObj = dataProvider[itemIndex];
dataProvider.splice(itemIndex, 1);
}
legendEvent.chart.validateData();
}
if (!chart.legend || !chart.legend.enabled || !chart.legend.generateFromData) {
return;
}
var categoryField = chart.categoryField;
var colorField = chart.graphs[0].lineColorField || chart.graphs[0].fillColorsField || chart.graphs[0].colorField;
var legendData = chart.dataProvider.map(function (data, idx) {
var markerData = {
"title": data[categoryField],
"color": data[colorField],
"dataIdx": idx
};
if (!markerData.color) {
markerData.color = chart.graphs[0].lineColor;
}
data.dataIdx = idx;
return markerData;
});
chart.legend.data = legendData;
chart.legend.switchable = true;
chart.legend.addListener("clickMarker", handleCustomMarkerToggle);
}, ["serial"]);
}
</script>
</asp:Content>

View File

@@ -0,0 +1,342 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class Finanzas_RepRazonesFinancieras2
Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaEjercicios()
CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
ValidaEjercicios()
End If
End Sub
Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
If Tab.TabIndex = 0 Then 'Balance General
End If
If Tab.ActiveTabIndex = 1 Then 'Estado de Resultados
End If
If Tab.ActiveTabIndex = 2 Then 'Ratios
End If
UpFiltros.Update()
End Sub
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
End Sub
Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
End Sub
Private Sub ValidaEjercicios()
Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
If DdlEjercicio2.Items.Count > 0 Then
DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
End If
Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
If Not EInicio + 1 > Fejerciosio Then
DdlEjercicio2.SelectedValueExist(EInicio + 1)
End If
End If
UpFiltros.Update()
End Sub
Private Sub CargaEjercicios()
'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ClsConta As New ClsContabilidad
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = ClsConta.DtResultados
DdlEjercicio2.DataSource = ClsConta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
DdlEjercicio2.DataSource = Nothing
End If
ClsConta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio2.DataBind()
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
If DdlEjercicio.Items.Count = 0 Then
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
End If
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
If TAB.ActiveTabIndex = 0 Then
CargaDatosBalanceGeneral()
End If
If TAB.ActiveTabIndex = 1 Then
CargaDatosEstadoResultados()
End If
If Tab.ActiveTabIndex = 2 Then
CargaDatosRatios()
End If
End Sub
#Region "ESTADO RESULTADOS"
Private Sub CargaDatosBalanceGeneral()
UpBalanceGeneral.Update()
End Sub
Private Sub CargaDatosEstadoResultados()
LnkExportar.Visible = False
GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim objFinanzas As New ClsFinanzas
Dim dtTemp As New DataTable
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
dtTemp = objFinanzas.DtResultados
GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
GVEstadoRsultados.DataSource = dtTemp
If dtTemp.Rows.Count > 0 Then
LnkExportar.Visible = True
End If
Else
GVEstadoRsultados.DataSource = Nothing
End If
objFinanzas.Dispose()
GVEstadoRsultados.DataBind()
UpEstadoResultados.Update()
End Sub
Private Sub GVEstadoRsultadosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 2 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False
Next
UpEstadoResultados.Update()
End Sub
Private Sub GVEstadoRsultadosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
Dim index = 1
For index = 1 To dt.Columns.Count - 5
CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
Gv.Columns(index + 4).Visible = True
Dim tmpDate As Date
If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
Else
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
End If
Next
End Sub
Protected Sub GVEstadoRsultados_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Tipo").ToEntero = 1 Then
e.Row.Font.Bold = True
End If
If e.Row.DataKey("Tipo").ToEntero = 3 Then
e.Row.FCLabel("LblNombre").Text = $"&emsp;{e.Row.FCLabel("LblNombre").Text}"
End If
If e.Row.DataKey("Tipo").ToEntero = 4 Then
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
End If
End If
End Sub
#End Region
#Region "RATIOS"
Private Sub CargaDatosRatios()
LnkExportar.Visible = False
GVRatiosOcultarColumnas(GVRatios, 1)
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim objFinanzas As New ClsFinanzas
Dim dtTemp As New DataTable
If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
dtTemp = objFinanzas.DtResultados
GVRatiosMostrarColumnas(dtTemp, GVRatios)
GVRatios.DataSource = dtTemp
If dtTemp.Rows.Count > 0 Then
LnkExportar.Visible = True
End If
Else
GVRatios.DataSource = Nothing
End If
objFinanzas.Dispose()
GVRatios.DataBind()
UpBalanceGeneral.Update()
End Sub
Private Sub GVRatiosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 1 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False
Next
UpEstadoResultados.Update()
End Sub
Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
Dim index = 1
For index = 1 To dt.Columns.Count - 2
CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
CType(Gv.Columns(index + 1), BoundField).DataFormatString = "{0:P2}"
Gv.Columns(index + 1).Visible = True
CType(Gv.Columns(index + 1), BoundField).HeaderText = dt.Columns(index + 1).ColumnName
Next
End Sub
Protected Sub GVRatios_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Tipo").ToEntero = 1 Then
e.Row.Font.Bold = True
End If
If e.Row.DataKey("Tipo").ToEntero = 3 Then
e.Row.FCLabel("LblNombre").Text = $"&emsp;{e.Row.FCLabel("LblNombre").Text}"
End If
If e.Row.DataKey("Tipo").ToEntero = 4 Then
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
End If
End If
End Sub
#End Region
#Region "DESCARGA EXCEL"
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
#End Region
End Class

View File

@@ -67,27 +67,21 @@
<Width>1.43285cm</Width>
</TablixColumn>
<TablixColumn>
<Width>7.48903cm</Width>
<Width>7.6207cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.17368cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.89146cm</Width>
<Width>2.63605cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.25269cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.89147cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.1825cm</Width>
<Width>5.45041cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.41479cm</Height>
<Height>0.5cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -136,6 +130,7 @@
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -187,6 +182,7 @@
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -238,159 +234,7 @@
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox9">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>% de Pago</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox11">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Horas Dobles</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Horas Triples</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -442,6 +286,59 @@
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Observaciones</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -449,7 +346,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.36188cm</Height>
<Height>0.5cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -496,6 +393,7 @@
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -545,6 +443,7 @@
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -594,134 +493,7 @@
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="PorcentajePago">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!PorcentajePago.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>0;(0)</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>PorcentajePago</rd:DefaultName>
<Style>
<Border>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</Border>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="HorasDobles">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=IIf(Fields!HorasDobles.Value&gt;0,Fields!HorasDobles.Value.ToString(),"")</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>HorasDobles</rd:DefaultName>
<Style>
<Border>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</Border>
<TopBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</TopBorder>
<BottomBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</LeftBorder>
<RightBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="HorasTriples">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=IIf(Fields!HorasTriples.Value&gt;0,Fields!HorasTriples.Value.ToString(),"")</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>HorasTriples</rd:DefaultName>
<Style>
<Border>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</Border>
<TopBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</TopBorder>
<BottomBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</LeftBorder>
<RightBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -771,6 +543,57 @@
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Style>
<Border>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</Border>
<TopBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</TopBorder>
<BottomBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</LeftBorder>
<RightBorder>
<Color>Gray</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</RightBorder>
<PaddingTop>2pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
@@ -786,8 +609,6 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -803,8 +624,8 @@
<DataSetName>DataSet1</DataSetName>
<Top>3.2953cm</Top>
<Left>0.31432cm</Left>
<Height>0.77667cm</Height>
<Width>19.31368cm</Width>
<Height>1cm</Height>
<Width>19.31369cm</Width>
<Style>
<Border>
<Style>None</Style>

View File

@@ -355,11 +355,11 @@ public partial class GPS_WizardDispositivos : ClsPaginas
string icono = "rsz_11rsz_car";
string Color = "#0088FF";
string NumTelefono = ChkTipoLinea.Checked ? TxtTelefonoMovil.Text.Trim().Replace("(","").Replace(")","").Replace("-","").Replace(" ","") : "-1";
if(DdlMarca.SelectedValue =="19" && DevId.Length != 16 )
{
continuar = false;
Alert("el IMEI y DEVID de los dispositivos concox debe ser igual a 16 dígitos.", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
//if(DdlMarca.SelectedValue =="19" && DevId.Length != 16 )
//{
// continuar = false;
// Alert("el IMEI y ID del Dispositivo de los dispositivos concox debe ser igual a 16 dígitos.", ModExtensiones.TipoMensaje.MsgAdvertencia);
//}
if (continuar)
{
ClsGPS ObjGPS = new ClsGPS();

View File

@@ -2136,99 +2136,100 @@ Partial Class RH_Personal
CargaGvBitacora()
If EnviarCorreoNomina AndAlso DDLUsuarioNomina.SelectedValue.ToEntero > 0 Then
EnviarCorreoNominista()
'EnviarCorreoNominista()
EviarCorreoBajaReingresoNomista(TipoMovimientoRH.Alta)
End If
End Sub
Private Sub EnviarCorreoNominista()
'Private Sub EnviarCorreoNominista()
If UsuarioActual.CveEmpresa.Contiene(7) Then
' If UsuarioActual.CveEmpresa.Contiene(7) Then
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
' Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
If CorreoNominista = "" Then
Alert($"No se envio el correo de notificación a nominas, el nominista no tiene {DDLUsuarioNomina.SelectedItem.Text} correo electronico", TipoMensaje.MsgAdvertencia)
Exit Sub
' If CorreoNominista = "" Then
' Alert($"No se envio el correo de notificación a nominas, el nominista no tiene {DDLUsuarioNomina.SelectedItem.Text} correo electronico", TipoMensaje.MsgAdvertencia)
' Exit Sub
End If
' End If
Dim correo As New ClsSisMail
Dim Cuerpo As New StringBuilder
' Dim correo As New ClsSisMail
' Dim Cuerpo As New StringBuilder
Dim Puesto As String = ""
Dim Padre As String = ""
Dim Madre As String = ""
Dim FechaIngreso As String = ""
' Dim Puesto As String = ""
' Dim Padre As String = ""
' Dim Madre As String = ""
' Dim FechaIngreso As String = ""
Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
' Dim EmpresaDestino As String = If(DdlEmpresaAsignada.SelectedValue.ToEntero > 0, GlobalDTEmpresas(DdlEmpresaAsignada.SelectedValue.ToEntero).Rows(0)("Empresa").ToString, UsuarioActual.Empresa.Empresa)
Dim objRH As New ClsRH
' Dim objRH As New ClsRH
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
' If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
' Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
If DtFamiliares.Rows.Count > 0 Then
Padre = DtFamiliares.Rows(0)("Nombre").ToString
End If
' If DtFamiliares.Rows.Count > 0 Then
' Padre = DtFamiliares.Rows(0)("Nombre").ToString
' End If
DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
' DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
If DtFamiliares.Rows.Count > 0 Then
Madre = DtFamiliares.Rows(0)("Nombre").ToString
End If
' If DtFamiliares.Rows.Count > 0 Then
' Madre = DtFamiliares.Rows(0)("Nombre").ToString
' End If
End If
' End If
objRH.Dispose()
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine("<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
Cuerpo.AppendLine("</table>")
' objRH.Dispose()
' Cuerpo.AppendLine("<table border='0' style='width:100%'>")
' Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ EmpresaDestino }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
' Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por Alta de Nomina</td></tr>")
' Cuerpo.AppendLine("</table>")
Cuerpo.AppendLine("<br/>")
Cuerpo.AppendLine("<br/>")
' Cuerpo.AppendLine("<br/>")
' Cuerpo.AppendLine("<br/>")
Cuerpo.AppendLine("<table border='0'>")
Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
' Cuerpo.AppendLine("<table border='0'>")
' Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{If(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlRuta.SelectedValue.ToEntero > 0, DdlRuta.SelectedItem.Text, "") }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de ingreso:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaIngreso.Text}</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
If Padre.Length > 0 Then
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
End If
' If Padre.Length > 0 Then
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
' End If
If Madre.Length > 0 Then
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
End If
' If Madre.Length > 0 Then
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
' End If
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
Cuerpo.AppendLine("</table>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ If(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtTelefono.Text}</td></tr>")
' Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
' Cuerpo.AppendLine("</table>")
correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
' correo.SendMail(EmpresaNotificaciones, CorreoNominista, "Notificacion por Alta de Nomina: " & NombreCompleto, Cuerpo.ToString)
End If
' End If
End Sub
'End Sub
'Private Sub MandaMails(Rutas As Object)
' Try
@@ -7505,6 +7506,12 @@ Partial Class RH_Personal
End Using
End If
If continuar Then
EviarCorreoBajaReingresoNomista(If(estatus = 1, TipoMovimientoRH.Reingreso, TipoMovimientoRH.Baja))
End If
If continuar Then
RegistraScript("$('#ModalUpEstatus').modal('hide');")
@@ -7647,5 +7654,115 @@ Partial Class RH_Personal
End Sub
#Region "ENVIAR CORREO NOMINISTA"
Enum TipoMovimientoRH
Alta
Baja
Reingreso
End Enum
Private Sub EviarCorreoBajaReingresoNomista(eTipoMovimientoRH As TipoMovimientoRH)
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
Dim correo As New ClsSisMail
Dim Cuerpo As New StringBuilder
Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
If CorreoNominista = "" Then
Alert("No se envio el correo de notificación a nominas, el nominista no tiene correo electronico", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim Puesto As String = ""
Dim Padre As String = ""
Dim Madre As String = ""
Dim FechaIngreso As String = ""
Dim objRH As New ClsRH
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
Dim DtFamiliares As DataTable = objRH.DtResultados.FiltraParametros(" CveParentesco = 1 ")
If DtFamiliares.Rows.Count > 0 Then
Padre = DtFamiliares.Rows(0)("Nombre").ToString
End If
DtFamiliares = objRH.DtResultados.FiltraParametros(" CveParentesco = 2 ")
If DtFamiliares.Rows.Count > 0 Then
Madre = DtFamiliares.Rows(0)("Nombre").ToString
End If
End If
Dim TimpoMovimiento As String = ""
Select Case eTipoMovimientoRH
Case TipoMovimientoRH.Alta
TimpoMovimiento = "Alta"
Exit Select
Case TipoMovimientoRH.Baja
TimpoMovimiento = "Baja"
Exit Select
Case TipoMovimientoRH.Reingreso
TimpoMovimiento = "Reingreso"
Exit Select
End Select
objRH.Dispose()
Cuerpo.AppendLine("<table border='0' style='width:100%'>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large;'>{ UsuarioActual.Empresa.Empresa }<br/></td><td style='width:20%'> </td><td style='text-align: right;'>{ Now.ToShortDateString } { Now.ToShortTimeString } <br/></td> </tr>")
Cuerpo.AppendLine($"<tr><td style=' font-size:large; text-align: left;' colspan='3'>Notificacion por { TimpoMovimiento } de Nomina</td></tr>")
Cuerpo.AppendLine("</table>")
Cuerpo.AppendLine("<br/>")
Cuerpo.AppendLine("<br/>")
Cuerpo.AppendLine("<table border='0'>")
Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left; font-weight:bold;'>{IIf(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left; font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaEstatus.Text}</td></tr>")
If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left; font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")
If Txobservacionesbaja.Text.Trim.Length > 0 Then
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Observaciones :</td><td style=' text-align: left; font-weight:bold;'>{ Txobservacionesbaja.Text.Trim }</td></tr>")
End If
End If
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre:</td><td style=' text-align: left; font-weight:bold;'>{ NombreCompleto }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha y Lugar de Nacimiento:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaNacimiento.Text} {TxtLugarNacimiento.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero IMSS:</td><td style=' text-align: left; font-weight:bold;'>{ TxtNumeroSS.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Numero Infonavit:</td><td style=' text-align: left; font-weight:bold;'>{ If(TxtInfoNumCredito.Text.Trim = "", "NO CUENTA CON CREDITO", TxtInfoNumCredito.Text) }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Sexo:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlGenero.SelectedValue = "1", "Masculino", "Femenino") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>R.F.C.:</td><td style=' text-align: left; font-weight:bold;'>{ TxtRFC.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>CURP:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCURP.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre del Padre:</td><td style=' text-align: left; font-weight:bold;'>{ Padre }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text } No Ext.{ TxtNumExt.Text} No int.{TxtNumInt.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "") }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtCelularPersonal.Text}</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Tel en Caso de Emergencia:</td><td style=' text-align: left; font-weight:bold;'>{ TxtTelefonoEmergencia.Text }</td></tr>")
Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text }</td></tr>")
Cuerpo.AppendLine("</table>")
correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por { TimpoMovimiento }de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)
End Sub
#End Region
End Class

View File

@@ -1044,9 +1044,6 @@ Partial Class Clientes
#Region "C A R G A S"
Private Sub CreaDtPago()
DtPagos = New DataTable
DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1194,10 +1191,6 @@ Partial Class Clientes
DdlCtaContableAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
End If
'DdlCtaContableRetIVA.Attributes.Add("onclick", "CargaCuentas(3);")
'DdlCtaContableRetISR.Attributes.Add("onclick", "CargaCuentas(4);")
'DdlCtaContableFondoGarantia.Attributes.Add("onclick", "CargaCuentas(5);")
If UsuarioActual.Empresa.Funcionalidad(248).ToEntero() > 0 Then
DdlCtaContableCompClientes.Attributes.Add("onclick", "CargaCuentas(6);")
End If
@@ -1244,47 +1237,8 @@ Partial Class Clientes
End Select
UpFiscalContable.Update()
' Las funcionalidades 246, 247 y 248 para DdlCtaContableClientes, DdlMonedaExtranjeraClientes y DdlCtaContableCompClientes tienen prioridad sobre las demas.
'If UsuarioActual.Empresa.UsaContabilidad Then CargaCuentasContablesClientes()
End Sub
'Private Sub CargaCuentasContablesClientes()
' If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub
' ' Verifica si la empresas tienen las funcionalidades 246, 247 y 248
' Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
' If UsuarioActual.Empresa.Funcionalidad(246).Toentero() > 0 Then
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(246).Toentero(), "-1", 1) Then
' DdlCtaContableClientes.Items.Clear()
' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
' DdlCtaContableClientes.DataBind()
' End If
' End If
' If UsuarioActual.Empresa.Funcionalidad(247).Toentero() > 0 Then
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(247).Toentero(), "-1", 1) Then
' DdlMonedaExtranjeraClientes.Items.Clear()
' DdlMonedaExtranjeraClientes.Items.Add(New ListItem("Seleccione", "0"))
' DdlMonedaExtranjeraClientes.DataSource = ObjContabilidad.DtResultados
' DdlMonedaExtranjeraClientes.DataBind()
' End If
' End If
' If UsuarioActual.Empresa.Funcionalidad(248).Toentero() > 0 Then
' If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(248).Toentero(), "-1", 1) Then
' DdlCtaContableCompClientes.Items.Clear()
' DdlCtaContableCompClientes.Items.Add(New ListItem("Seleccione", "0"))
' DdlCtaContableCompClientes.DataSource = ObjContabilidad.DtResultados
' DdlCtaContableCompClientes.DataBind()
' End If
' End If
' ObjContabilidad.Dispose()
'End Sub
Private Sub CargaDdlCuentasContables(Ddl As DropDownList, Optional CveFuncionalidad As Integer = -1)
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentasRecursiva(CveFuncionalidad, 1) Then
@@ -1506,23 +1460,13 @@ Partial Class Clientes
Dim RetSC As Boolean = CargaSucursalesCliente()
CargaUsuariosPortal()
'CargaPersonalAsignado()
'CargaOrdenesServiciosCliente()
CargaImpuestosLocales()
CargaCuentasContablesDdls()
CargaResponsables()
CargaCondicionesEntrega()
'CargaClasificaciones()
' CargaGridRetenciones()
' CargaDocs()
CargaCombos()
CargaDocumentacionCliente()
CargaSubProyectosSuscursales()
'CargaMetodosPago33()
'CargaFormaPago33()
'CargaComboCFDI()
'CargarPagosNoBancarios()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -1774,12 +1718,6 @@ Partial Class Clientes
DdlAdminTrayecto.SelectedValueExist(ObjClientes.DtResultados(0)("CveAdminTrayecto").ToString())
DdlAdminTrayecto_SelectedIndexChanged(DdlAdminTrayecto, EventArgs.Empty)
'If ObjClientes.CveUsoCFDI > 0 Then DdlUsoCFDI.Items.RemoveAt(0)
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
'DIAS DE PAGO
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
@@ -1806,15 +1744,7 @@ Partial Class Clientes
'Horario
TxtHorario.Text = ObjClientes.Horario
'If ObjClientes.Horario <> "" Then
' Dim arrayHorario As String() = ObjClientes.Horario.Split(New Char() {"|"c})
' If arrayHorario.Count = 1 Then
' TxtHorario1.Text = arrayHorario(0)
' End If
' If arrayHorario.Count = 2 Then
' TxtHorario2.Text = arrayHorario(1)
' End If
'End If
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
@@ -1872,24 +1802,7 @@ Partial Class Clientes
Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
CargaEventoBitacora()
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
' CargaCuentasConceptos()
' divCuentas.Visible = True
' divCuentasContp.Visible = False
'Else
' divCuentas.Visible = False
' divCuentasContp.Visible = True
'End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()