diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index cc989e5e4..7c010deb9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1926,7 +1926,7 @@ Public Class ClsBancos Return Retorno End Function - Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer, Optional Opcion As Integer = -1) As Boolean + Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_IngresoEgresosDiariosGet") @@ -1934,7 +1934,7 @@ Public Class ClsBancos .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso - .Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica + '.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica End With Try diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index fa1ae71b7..fa03b1f8e 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -773,6 +773,21 @@ Public Class ClsCGame #Region "HUERTAS" + Public Function GetOrigen(CveEmpresa As Integer, Optional CveOrigen As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_CGame_OrigenGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las huertas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function Public Function GetHuerta(CveEmpresa As Integer, Optional CveHuerta As Integer = -1, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CGame_HuertaGet") diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 87bb5d529..8da82fc41 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1153,7 +1153,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1162,6 +1162,7 @@ Public Class ClsInventarios With SqlAdapter.SelectCommand.Parameters .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index d0cf74241..248134785 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -609,7 +609,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function CalculosISRAguinaldo(fraccionII_1 As Decimal, salariomensual As Decimal, diasmes As Int32, ejercicio As Int32) As Boolean + Public Function CalculosISRAguinaldo(fraccionII_1 As Decimal, salariomensual As Decimal, diasmes As Decimal, ejercicio As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_CalculosISRAguinaldo", CommandType.StoredProcedure) addParameters("@FraccionII_1", SqlDbType.Money, fraccionII_1) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index c9901fe10..a8437e242 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -29,6 +29,104 @@ Namespace Extensiones #Region "E X T E N S I O N E S" Public Module ModExtensiones + + Public ReadOnly Property foreign_characters As Dictionary(Of String, String) + Get + Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From { + {"äæǽ", "ae"}, + {"öœ", "oe"}, + {"ü", "ue"}, + {"Ä", "Ae"}, + {"Ü", "Ue"}, + {"Ö", "Oe"}, + {"ÀÁÂÃÄÅǺĀĂĄǍΑΆẢẠẦẪẨẬẰẮẴẲẶА", "A"}, + {"àáâãåǻāăąǎªαάảạầấẫẩậằắẵẳặа", "a"}, + {"Б", "B"}, + {"б", "b"}, + {"ÇĆĈĊČ", "C"}, + {"çćĉċč", "c"}, + {"Д", "D"}, + {"д", "d"}, + {"ÐĎĐΔ", "Dj"}, + {"ðďđδ", "dj"}, + {"ÈÉÊËĒĔĖĘĚΕΈẼẺẸỀẾỄỂỆЕЭ", "E"}, + {"èéêëēĕėęěέεẽẻẹềếễểệеэ", "e"}, + {"Ф", "F"}, + {"ф", "f"}, + {"ĜĞĠĢΓГҐ", "G"}, + {"ĝğġģγгґ", "g"}, + {"ĤĦ", "H"}, + {"ĥħ", "h"}, + {"ÌÍÎÏĨĪĬǏĮİΗΉΊΙΪỈỊИЫ", "I"}, + {"ìíîïĩīĭǐįıηήίιϊỉịиыї", "i"}, + {"Ĵ", "J"}, + {"ĵ", "j"}, + {"ĶΚК", "K"}, + {"ķκк", "k"}, + {"ĹĻĽĿŁΛЛ", "L"}, + {"ĺļľŀłλл", "l"}, + {"М", "M"}, + {"м", "m"}, + {"ÑŃŅŇΝН", "N"}, + {"ñńņňʼnνн", "n"}, + {"ÒÓÔÕŌŎǑŐƠØǾΟΌΩΏỎỌỒỐỖỔỘỜỚỠỞỢО", "O"}, + {"òóôõōŏǒőơøǿºοόωώỏọồốỗổộờớỡởợо", "o"}, + {"П", "P"}, + {"п", "p"}, + {"ŔŖŘΡР", "R"}, + {"ŕŗřρр", "r"}, + {"ŚŜŞȘŠΣС", "S"}, + {"śŝşșšſσςс", "s"}, + {"ȚŢŤŦτТ", "T"}, + {"țţťŧт", "t"}, + {"ÙÚÛŨŪŬŮŰŲƯǓǕǗǙǛŨỦỤỪỨỮỬỰУ", "U"}, + {"ùúûũūŭůűųưǔǖǘǚǜυύϋủụừứữửựу", "u"}, + {"ÝŸŶΥΎΫỲỸỶỴЙ", "Y"}, + {"ýÿŷỳỹỷỵй", "y"}, + {"В", "V"}, + {"в", "v"}, + {"Ŵ", "W"}, + {"ŵ", "w"}, + {"ŹŻŽΖЗ", "Z"}, + {"źżžζз", "z"}, + {"ÆǼ", "AE"}, + {"ß", "ss"}, + {"IJ", "IJ"}, + {"ij", "ij"}, + {"Œ", "OE"}, + {"ƒ", "f"}, + {"ξ", "ks"}, + {"π", "p"}, + {"β", "v"}, + {"μ", "m"}, + {"ψ", "ps"}, + {"Ё", "Yo"}, + {"ё", "yo"}, + {"Є", "Ye"}, + {"є", "ye"}, + {"Ї", "Yi"}, + {"Ж", "Zh"}, + {"ж", "zh"}, + {"Х", "Kh"}, + {"х", "kh"}, + {"Ц", "Ts"}, + {"ц", "ts"}, + {"Ч", "Ch"}, + {"ч", "ch"}, + {"Ш", "Sh"}, + {"ш", "sh"}, + {"Щ", "Shch"}, + {"щ", "shch"}, + {"ЪъЬь", ""}, + {"Ю", "Yu"}, + {"ю", "yu"}, + {"Я", "Ya"}, + {"я", "ya"} + } + Return fgk + End Get + End Property + Public ReadOnly Property DirectorioBaseEmpresas As String Get If IsNothing(System.Configuration.ConfigurationManager.AppSettings("DirectorioBaseEmpresas")) Then @@ -3826,11 +3924,71 @@ Namespace Extensiones Dim FechaF As DateTime = New DateTime(Year, 10, 1, 23, 59, 59).GetLastWeekdayOfMonth(DayOfWeek.Sunday) 'ULTIMO DOMINGO DE OCTUBRE Return fecha >= FechaI AndAlso fecha <= FechaF + End Function + + + Function RemoveDiacritics(ByVal c As Char) As Char + For Each entry As KeyValuePair(Of String, String) In foreign_characters + + If entry.Key.IndexOf(c) <> -1 Then + Return entry.Value(0) + End If + Next + + Return c + End Function + + + Function RemoveDiacritics(ByVal s As String) As String + Dim text As String = "" + + For Each c As Char In s + Dim len As Integer = text.Length + + For Each entry As KeyValuePair(Of String, String) In foreign_characters + + If entry.Key.IndexOf(c) <> -1 Then + text += entry.Value + Exit For + End If + Next + + If len = text.Length Then + text += c + End If + Next + + Return text End Function End Module #End Region -#Region "C L A S E S" + +#Region "C L A S E S" + Public Class TipoCambioActual + Public Fecha As Date + Public TipoCambio As Decimal + End Class + + Public Class MenuModal + Public Sub New() + HeaderBar = New StringBuilder("
  • Inicio
    • ") + MenuHTML = New StringBuilder() + modpadres = New List(Of String) + End Sub + + Property CveModuloSeleccionado As Integer + Property CveModuloSeleccionadoPadre As Integer + Property dt As DataTable + + Property HeaderBar As StringBuilder + Property MenuHTML As StringBuilder + Property ScriptColorGrupoModulo As String + Property strdomain As String + Property modpadres As List(Of String) + + + End Class Public Class Archivo Public Sub New() filename = "" diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 4598c6f95..d0d6e1e61 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -1677,8 +1677,18 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then ' TieneError = True 'End If + Dim CveUsuarioEliminoMovimiento As Integer = 100 - If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then + Try + Dim usuario As Usuario = UsuarioActual(context) + CveUsuarioEliminoMovimiento = If(usuario.CveUsuario > 0, usuario.CveUsuario, 100) + Catch ex As Exception + + End Try + + + + If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa, CveUsuarioEliminoMovimiento) Then TieneError = True End If diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb index 01d6c9622..79963120b 100644 --- a/Bancos/Creditos.aspx.vb +++ b/Bancos/Creditos.aspx.vb @@ -719,7 +719,10 @@ Partial Class Bancos_Creditos ErrorCredito = True End If - If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then + If ObjCredito.AddCreditos(TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, + TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), + -1, -1, -1, CveProveedor, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, + AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) > 0 Then 'Dim Fecha = If(TipoCreditoTemp = 2, TxtCSFechaDeposito.Text.ToDate, TxtCSFechaVencimiento.Text.ToDate) 'For i = 1 To If(TipoCreditoTemp = 2, TxtCSPeriodos.Text.Trim.ToEntero, 1) 'DateAdd("d", TxtPlazo.Text.ToEntero, Fecha) @@ -761,7 +764,10 @@ Partial Class Bancos_Creditos If CveCredito > 0 Then Dim TipoCreditoTemp = DdlTipoCredito.SelectedValue.ToEntero - If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then + If ObjCredito.UpdateCreditos(CveCredito, TipoCreditoTemp, TxtCSReferencia.Text, TxtCSObservaciones.Text, DdlCuentaCredito.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero, -1, DdlCSTipoMoneda.SelectedValue.ToEntero, TxtCSFechaInicio.Text.Trim.ToDate, + TxtCSFechaVencimiento.Text.Trim.ToDate, TxtCSTasa.Text.Trim.ToDouble, TxtCSSobreTasa.Text.Trim.ToDouble, -1, TxtCSPlazo.Text.ToEntero, CveIE, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToEntero, TotalCompra), + -1, -1, -1, -1, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=DdlTarjetaCredito.SelectedValue.ToEntero, + AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False)) Then If Not ObjCredito.UpdateCreditosDetalle(ObjCredito.CveCredito, TxtCSFechaVencimiento.Text.ToDate, If(TipoCreditoTemp = 2, TxtCSTotalCredito.Text.ToString.ToEntero, TotalCompra), 0.0, 0.0, 0.0, 0.0, 0.0, If(TipoCreditoTemp = 1, 101, 1)) Then ErrorCredito = True End If diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index 8eab374df..370ea72b3 100644 --- a/Bancos/FlujoDiario.aspx.vb +++ b/Bancos/FlujoDiario.aspx.vb @@ -50,50 +50,38 @@ Partial Class Bancos_FlujoDiario Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - - If Imagen.Exists Then + If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If + + 'SE LLENA TmpDTSaldosIniciales Dim Ban As New ClsBancos - Dim TmpDTIngresosDelDiaCajaChica As New DataTable - Dim TmpDTGastosDelDiaCajaChica As New DataTable - If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TmpDTSaldosIniciales = Ban.DtResultados End If 'Se Llena TmpDTIngresosDelDia - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 1) Then - TmpDTIngresosDelDia = Ban.DtResultados - TmpDTIngresosDelDia = Ban.DtResultados - End If - - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 2) Then - TmpDTIngresosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8") + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then + TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8") End If 'Se Llena TmpDTGastosDelDia - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 1) Then - TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2") - End If - - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 2) Then - TmpDTGastosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2") + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then + TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2") End If 'Se Llena TmpDTSaldosActuales @@ -110,15 +98,10 @@ Partial Class Bancos_FlujoDiario Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(TmpDTGastosDelDia IsNot Nothing, TmpDTGastosDelDia, New DataTable)} Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(TmpDTSaldosActuales IsNot Nothing, TmpDTSaldosActuales, New DataTable)} - Dim rds6 As New ReportDataSource With {.Name = "DataSet6", .Value = If(TmpDTIngresosDelDiaCajaChica IsNot Nothing, TmpDTIngresosDelDiaCajaChica, New DataTable)} - Dim rds7 As New ReportDataSource With {.Name = "DataSet7", .Value = If(TmpDTGastosDelDiaCajaChica IsNot Nothing, TmpDTGastosDelDiaCajaChica, New DataTable)} - lrds.Add(rds) lrds.Add(rds2) lrds.Add(rds3) lrds.Add(rds4) - lrds.Add(rds6) - lrds.Add(rds7) 'lrds.Add(rds5)- diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx index 3ee892959..0ad2b82df 100644 --- a/CGame/CatHuerta.aspx +++ b/CGame/CatHuerta.aspx @@ -69,7 +69,7 @@
    + DataKeyNames="CveHuerta,Huerta,CveOrigen,NombreRegistro,NumeroRegistro,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound"> @@ -149,10 +149,10 @@
    -
    +
    - +
    diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs index b7ac258f2..4041dd853 100644 --- a/CGame/CatHuerta.aspx.cs +++ b/CGame/CatHuerta.aspx.cs @@ -2,8 +2,14 @@ { GVHuerta.DataSource = ObjHuer.DtResultados; GVHuerta.DataBind(); - } ObjHuer.Dispose(); upDatosHuer.Update(); } protected void CargaProveedor() { - ClsCompProveedores ObjProv = new ClsCompProveedores(); if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)) + } ObjHuer.Dispose(); upDatosHuer.Update(); } protected void CargaProveedor() { + using (ClsCGame ogame =new ClsCGame()) + { + ogame.GetOrigen(UsuarioActual.CveEmpresa, -1); + ddlOrigen.DataSource = ogame.DtResultados; + ddlOrigen.DataBind(); + } + ClsCompProveedores ObjProv = new ClsCompProveedores(); if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)) { DdlProveedor.DataSource = ObjProv.DtResultados; DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1")); @@ -16,7 +22,8 @@ if (DdlProveedor.Items.Count > 2) { DdlProveedor.SelectedIndex = 2; - } DdlTipoCobro.SelectedIndex = 0; UPModalHuer.Update(); } protected void LnkEditarHuer_Click(object sender, EventArgs e) { LimpiaHuerta(); GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CveHuerta = gvRow.DataKey("CveHuerta").ToEntero(); TxtHuerhuerta.Text = gvRow.DataKey("Huerta"); TxtImporte.Text = gvRow.DataKey("Importe"); TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada"); DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero()); DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero()); ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus")); RegistraScript("$('#DModalHuerta').modal();"); BtnHuerADD.Visible=false; BtnHuerEdit.Visible=true; DivEstatus.Visible = true; UPModalHuer.Update(); } protected void LnkAgregarHuer_Click(object sender, EventArgs e) { RegistraScript("$('#DModalHuerta').modal();"); LimpiaHuerta(); BtnHuerADD.Visible=true; BtnHuerEdit.Visible=false; DivEstatus.Visible = false; UPModalHuer.Update(); } protected void BtnHuerADD_Click(object sender, EventArgs e) { if (DdlProveedor.SelectedValue=="-1") + } DdlTipoCobro.SelectedIndex = 0; UPModalHuer.Update(); } protected void LnkEditarHuer_Click(object sender, EventArgs e) { LimpiaHuerta(); GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CveHuerta = gvRow.DataKey("CveHuerta").ToEntero(); TxtHuerhuerta.Text = gvRow.DataKey("Huerta"); TxtImporte.Text = gvRow.DataKey("Importe"); TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada"); TxtNombreRegistro.Text = gvRow.DataKey("NombreRegistro"); + TxtNumeroRegistro.Text = gvRow.DataKey("NumeroRegistro"); DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero()); DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero()); ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus")); RegistraScript("$('#DModalHuerta').modal();"); BtnHuerADD.Visible=false; BtnHuerEdit.Visible=true; DivEstatus.Visible = true; UPModalHuer.Update(); } protected void LnkAgregarHuer_Click(object sender, EventArgs e) { RegistraScript("$('#DModalHuerta').modal();"); LimpiaHuerta(); BtnHuerADD.Visible=true; BtnHuerEdit.Visible=false; DivEstatus.Visible = false; UPModalHuer.Update(); } protected void BtnHuerADD_Click(object sender, EventArgs e) { if (DdlProveedor.SelectedValue=="-1") { Alert("Tiene que seleccionar un proveedor."); return; diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a00e59570..c20eb252e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6331,7 +6331,7 @@ Partial Class Compras_Compras funcionalidad = 317 ConceptoContable = 243 ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then - funcionalidad = 349 + funcionalidad = 348 ConceptoContable = 327 End If importeMovimiento = CompraActual.RetISR @@ -8557,40 +8557,45 @@ Partial Class Compras_Compras Dim CveMovimientoActual As Integer = diRow("CveMovimiento").ToString.ToEntero - Dim DTMovimientoActual As DataTable = DTInventarios.FiltraParametros($"CveMovimiento = {CveMovimientoActual} ") - - Dim detalleDescripcion As String = "" - Dim Description As String = "" - - Dim FolioMovimiento As String = "" - Dim ConceptoMovimiento As String = "" - - For Each dRowMovActual As DataRow In DTMovimientoActual.Rows - - If dRowMovActual("UM").ToString = "" Then - FolioMovimiento = dRowMovActual("Folio").ToString - ConceptoMovimiento = dRowMovActual("Concepto").ToString - - Description = String.Format("Eliminación Compra {6},Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:
    ", - ConceptoMovimiento, - dRowMovActual("Almacen").ToString, - dRowMovActual("FechaMovto").ToString.ToDate.ToString("dd/MM/yyyy"), - FolioMovimiento, - dRowMovActual("Usuario").ToString, - dRowMovActual("Observaciones").ToString, - $"{TxtSerie.Text}-{TxtFolio.Text}") - Else - detalleDescripcion = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}
    ", dRowMovActual("Cantidad").ToString.ToEntero, dRowMovActual("CodigoPS"), dRowMovActual("PU"), dRowMovActual("UM")) - End If - - Next - - If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, - String.Format("{0}, Informacion = {1}", Description, detalleDescripcion), - "Inventarios", FolioMovimiento + " / " + ConceptoMovimiento) Then + If Not ObjInventarios.MovimientoRemove(CveMovimientoActual, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then ErrorCompra = True Exit For End If + + 'Dim DTMovimientoActual As DataTable = DTInventarios.FiltraParametros($"CveMovimiento = {CveMovimientoActual} ") + + 'Dim detalleDescripcion As String = "" + 'Dim Description As String = "" + + 'Dim FolioMovimiento As String = "" + 'Dim ConceptoMovimiento As String = "" + + 'For Each dRowMovActual As DataRow In DTMovimientoActual.Rows + + ' If dRowMovActual("UM").ToString = "" Then + ' FolioMovimiento = dRowMovActual("Folio").ToString + ' ConceptoMovimiento = dRowMovActual("Concepto").ToString + + ' Description = String.Format("Eliminación Compra {6},Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:
    ", + ' ConceptoMovimiento, + ' dRowMovActual("Almacen").ToString, + ' dRowMovActual("FechaMovto").ToString.ToDate.ToString("dd/MM/yyyy"), + ' FolioMovimiento, + ' dRowMovActual("Usuario").ToString, + ' dRowMovActual("Observaciones").ToString, + ' $"{TxtSerie.Text}-{TxtFolio.Text}") + ' Else + ' detalleDescripcion = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}
    ", dRowMovActual("Cantidad").ToString.ToEntero, dRowMovActual("CodigoPS"), dRowMovActual("PU"), dRowMovActual("UM")) + ' End If + + 'Next + + 'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, + ' String.Format("{0}, Informacion = {1}", Description, detalleDescripcion), + ' "Inventarios", FolioMovimiento + " / " + ConceptoMovimiento) Then + ' ErrorCompra = True + ' Exit For + 'End If Next End If diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 6b1e0781a..188dfb37c 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -162,99 +162,124 @@
    -
    -
    -
    - -
    - - - - - -
    -
    -
    - -
    - - - - -
    -
    - -
    -
    -
    -
    -
    -
    - -
    -
    - - - - + +
    + +
    + +
    +
    +
    + +
    + + + + + +
    - - - - - - - - +
    + +
    + + + + +
    +
    + +
    +
    +
    +
    +
    +
    + +
    +
    + + + + +
    + + + + + + + + -
    -
    -
    - -
    - - - -
    -
    - -
    - $ - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - -
    +
    +
    +
    + +
    + + + +
    +
    + +
    + $ + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + + +
    -
    - $ - - - - -
    -
    -
    - -
    - +
    + $ + + + + +
    +
    +
    + +
    + +
    +
    +
    +
    + + + +
    + +
    +     +     + +
    + +
    + + + + diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index af22a88cd..b28b694c0 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -521,6 +521,17 @@ Partial Class Compras_ReembolsosComprobaciones Next + Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos + + Dim filemove As String = "" + Dim Comprobante As String = "" + Dim ComprobanteIE = "" + + For Each fileItem As Archivo In filesgral + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + filemove = fileItem.filename + Next + If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then CveIERegistrado = DDlCheques.SelectedValue.ToEntero @@ -569,14 +580,31 @@ Partial Class Compras_ReembolsosComprobaciones If ChkChequeExcedente.Checked Then CvePrePolizaExcedente = ObjMov.AddPrePolizas("Compras/Comprobaciones3", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False)) + CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False)) If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, If(CveCajaChica > 0, 30, 29), TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEExcedente, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then MsgError = "Error al registrar detalle de concepto bancario" End If + + If CveIEExcedente > 0 Then + If filemove <> "" Then + filemove.FilesMove(CveIEExcedente.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) + Anexo.Text = "" + End If + End If + + + End If ElseIf Not ChkReembolsarSinBancos.Checked Then CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones4", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False)) + CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False)) + + If CveIERegistrado > 0 Then + If filemove <> "" Then + filemove.FilesMove(CveIERegistrado.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) + Anexo.Text = "" + End If + End If 'AGREGO PREPOLIZA IE BANCOS If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then diff --git a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc index 897510c84..34009bc2a 100644 --- a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc +++ b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc @@ -1,1533 +1,5 @@ - - - - - - - true - true - - - - - =Parameters!pEmp.Value - - - - - - - Textbox1 - 0.98806cm - 20.2388cm - - - 2pt - 2pt - 2pt - 2pt - - - - External - = Parameters!pImg.Value - Fit - 1.98547cm - 3.43894cm - 1 - - - - - - true - true - - - - - Balanza de Comprobación del - - - - =Parameters!pFechaIni.Value - - - - al - - - - =Parameters!pFechaFin.Value - - - - - - - Textbox5 - 0.98806cm - 0.99741cm - 20.2388cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 3.43894cm - - - 6.04544cm - - - 2.87929cm - - - 2.5cm - - - 2.5cm - - - 2.87513cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - Textbox2 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox4 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldos Iniciales - - - - - - - Textbox7 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox9 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox10 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldos Actuales - - - - - - - Textbox11 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Cuenta - - - - - - - Textbox13 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox15 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Deudor Acreedor - - - - - - - Textbox17 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox21 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox23 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Deudor Acreedor - - - - - - - Textbox25 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.45cm - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - =Fields!Nombre.Value - - - - - - 2pt - 2pt - 2pt - 2pt - Horizontal - - - - - - - - true - true - - - - - =Fields!SaldoInicial.Value - - - - - - - SaldoInicial - - - 2pt - =Iif(Fields!CveTipo.Value=1,"17pt","2pt") - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cargos.Value - - - - - - - Cargos1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Abonos.Value - - - - - - - Abonos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SaldoActual.Value - - - - - - - SaldoActual - - - 2pt - =Iif(Fields!CveTipo.Value=1,"17pt","2pt") - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sumas Iguales - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoID.Value) - - - - - - - SaldoID - - - 2pt - 17pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!TotalAbonos.Value) - - - - - - - TotalAbonos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!TotalCargos.Value) - - - - - - - TotalCargos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoAD.Value) - - - - - - - SaldoAD - - - 2pt - 17pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoIA.Value) - - - - - - - SaldoIA - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox33 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox34 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Last(Fields!SaldoAA.Value) - - - - - - - SaldoAA - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - - - - Before - - - Before - - - - true - DataSet1 - 2.04159cm - 2.85cm - 20.2388cm - 3 - - - - - - true - 5.50443cm - 20.2388cm - - - - - - 2.1671in - - - - =Parameters!pFechaIni.Value - - - - al - - - - =Parameters!pFechaFin.Value - - - - - - - Textbox5 - 0.6cm - 20.2388cm - - = (Globals.PageNumber=1) - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.6cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0cm - 14.86367cm - 0.6cm - 5.37513cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd/MM/yyyy HH:mmm") - - - - - - - Textbox8 - 0cm - 0.6cm - 3.43894cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Usuario Imprimio: " & Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.25cm - 0.25cm - 0.5cm - 1cm - 0.13cm - + + + + + + Textbox1 + 0.98806cm + 20.2388cm + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + Fit + 1.98547cm + 3.43894cm + 1 + + + + + + true + true + + + + + Balanza de Comprobación del + + + + =Parameters!pFechaIni.Value + + + + al + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 0.98806cm + 0.99741cm + 20.2388cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 3.43894cm + + + 6.04544cm + + + 2.87929cm + + + 2.5cm + + + 2.5cm + + + 2.87513cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox2 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldos Iniciales + + + + + + + Textbox7 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox9 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox10 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldos Actuales + + + + + + + Textbox11 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cuenta + + + + + + + Textbox13 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox15 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Deudor Acreedor + + + + + + + Textbox17 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox21 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox23 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Deudor Acreedor + + + + + + + Textbox25 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45cm + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + Horizontal + + + + + + + + true + true + + + + + =Fields!SaldoInicial.Value + + + + + + + SaldoInicial + + + 2pt + =Iif(Fields!CveTipo.Value=1,"17pt","2pt") + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cargos.Value + + + + + + + Cargos1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abonos.Value + + + + + + + Abonos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SaldoActual.Value + + + + + + + SaldoActual + + + 2pt + =Iif(Fields!CveTipo.Value=1,"17pt","2pt") + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sumas Iguales + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoID.Value) + + + + + + + SaldoID + + + 2pt + 17pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!TotalAbonos.Value) + + + + + + + TotalAbonos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!TotalCargos.Value) + + + + + + + TotalCargos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoAD.Value) + + + + + + + SaldoAD + + + 2pt + 17pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoIA.Value) + + + + + + + SaldoIA + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox33 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox34 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Last(Fields!SaldoAA.Value) + + + + + + + SaldoAA + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + true + + + After + true + + + + + + Before + + + Before + + + + true + DataSet1 + 2.04159cm + 2.85cm + 20.2388cm + 3 + + + + + + true + 5.50443cm + 20.2388cm + + + + + + 2.1671in + + + + =Parameters!pFechaIni.Value + + + + al + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 0.6cm + 20.2388cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.6cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 14.86367cm + 0.6cm + 5.37513cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbCrLf & DateTime.Now.ToString("dd/MM/yyyy HH:mmm") + + + + + + + Textbox8 + 0.6cm + 3.43894cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Usuario Imprimio: " & Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 0.5cm + 1cm + 0.13cm + + + + + + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!Banco.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") + + + + + + + Saldo1 + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + SALDOS + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares" AND Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) + + + + + + + Saldo3 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + =IIF(Fields!Banco.Value = "", TRUE,FALSE) + + + + Before + + + + DataSet1 + 0.17639cm + 0.08599cm + 1.69417cm + 17.21559cm + + + + + + + + + 10.07247cm + + + 3.47235cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + INGRESOS DEL DIA + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox22 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox23 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Importe + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL INGRESOS + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox25 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox26 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet2 + 2.08222cm + 0.08599cm + 1.72062cm + 17.25529cm + 1 + + + + + + + + + 10.09232cm + + + 3.4525cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + GASTOS DEL DÍA + + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + + 1pt + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + 1pt + + + 1pt + + + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Saldo1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL GASTOS + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo2 + + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo3 + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet3 + 4.05351cm + 0.06614cm + 1.69417cm + 17.25529cm + 2 + + + + + + + + + 10.09232cm + + + 3.43265cm + + + 3.69063cm + + + + + 0.6cm + + + + + true + true + + + + + SALDO AL CIERRE + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + 1pt + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!Banco.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") + + + + + + + Saldo1 + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + SALDOS + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares" And Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) + + + + + + + Saldo3 + + + + 1pt + + + 1pt + + + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Banco.Value = "", True, False) + + + + Before + + + + DataSet4 + 6.02637cm + 0.08599cm + 1.69417cm + 17.21559cm + 3 + + + + + + 3.1in + + + + + + + Textbox1 + 0.22833cm + 6.0099cm + 0.6cm + 9.74549cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FLUJO DIARIO + + + + + + + + + + + + + + + + Textbox2 + 0.86361cm + 6.0099cm + 0.52945cm + 9.74549cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.22833cm + 0.08599cm + 2.40883cm + 4.0834cm + 2 + + + + + + true + true + + + + + =Parameters!Fecha.Value + + + + Textbox3 + 1.91108cm + 14.00032cm + 0.6cm + 6.2766cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + 3.01512cm + 0.04947cm + 0cm + 20.22745cm + 4 + + + + + + + + + + + 1.00188cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.2734cm + 17.14236cm + 0.68085cm + 3.13456cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.15874cm + 0.08599cm + 0cm + 20.21078cm + 5 + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - - - - - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!NumCuenta.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") - - - - - - - Saldo1 - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - SALDOS - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares" AND Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) - - - - - - - Saldo3 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - =IIF(Fields!Banco.Value = "", TRUE,FALSE) - - - - Before - - - - DataSet1 - 0.17639cm - 0.08599cm - 1.69417cm - 17.2156cm - - - - - - - - - 10.07247cm - - - 3.47235cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - INGRESOS DEL DÍA BANCOS - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox22 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox23 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Importe - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL INGRESOS BANCOS - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox25 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox26 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet2 - 2.08222cm - 0.08599cm - 1.72062cm - 17.2553cm - 1 - - - - - - - - - 10.09232cm - - - 3.4525cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - GASTOS DEL DÍA BANCOS - - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - - 1pt - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - 1pt - - - 1pt - - - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Saldo1 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL GASTOS BANCOS - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo2 - - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo3 - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet3 - 4.05351cm - 0.06614cm - 1.69417cm - 17.2553cm - 2 - - - - - - - - - 10.09232cm - - - 3.43265cm - - - 3.69063cm - - - - - 0.6cm - - - - - true - true - - - - - SALDO AL CIERRE - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - 1pt - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!NumCuenta.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") - - - - - - - Saldo1 - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - SALDOS - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares" And Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) - - - - - - - Saldo3 - - - - 1pt - - - 1pt - - - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Banco.Value = "", True, False) - - - - Before - - - - DataSet4 - 10.05862cm - 0.08599cm - 1.69417cm - 17.2156cm - 3 - - - - - - - - - 10.07247cm - - - 3.47235cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - INGRESOS DEL DÍA CAJA CHICA - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox22 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox23 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Importe - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL INGRESOS CAJA CHICA - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox25 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox26 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet6 - 6.06259cm - 0.10584cm - 1.72062cm - 17.2553cm - 4 - - - - - - - - - 10.09232cm - - - 3.4525cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - GASTOS DEL DÍA CAJA CHICA - - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - - 1pt - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - 1pt - - - 1pt - - - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Saldo1 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL GASTOS CAJA CHICA - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo2 - - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo3 - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet7 - 8.06563cm - 0.08599cm - 1.69417cm - 17.2553cm - 5 - - - - - - 4.62708in - - - - - - - Textbox1 - 0.22833cm - 6.0099cm - 0.6cm - 9.74549cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FLUJO DIARIO - - - - - - - - - - - - - - - - Textbox2 - 0.86361cm - 6.0099cm - 0.52945cm - 9.74549cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.22833cm - 0.08599cm - 2.40883cm - 4.0834cm - 2 - - - - - - true - true - - - - - =Parameters!Fecha.Value - - - - Textbox3 - 1.91108cm - 14.00032cm - 0.6cm - 6.2766cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - 3.01512cm - 0.04947cm - 0cm - 20.22745cm - 4 - - - - - - - - - - - 1.00188cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.2734cm - 17.14236cm - 0.68085cm - 3.13456cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.15874cm - 0.08599cm - 0cm - 20.21078cm - 5 - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - <%: Scripts.Render("~/bundles/modernizr") %> <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> @@ -149,7 +154,7 @@ -
    @@ -682,63 +688,63 @@ - - - - -
    -
    - -

    Folios descargados

    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + +
    +
    + +

    Folios descargados

    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +
    -
    - -
    -
    - - - + + +