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/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/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/Empresas/Grales/Formatos/FlujoDiario.rdlc b/Empresas/Grales/Formatos/FlujoDiario.rdlc index d6a2ec854..8e619396e 100644 --- a/Empresas/Grales/Formatos/FlujoDiario.rdlc +++ b/Empresas/Grales/Formatos/FlujoDiario.rdlc @@ -1,5 +1,2207 @@  - + + + + + + + + 10.07247cm + + + 3.4525cm + + + 3.69063cm + + + + + 0.6cm + + + + + true + true + + + + + SALDOS INICIALES EN BANCOS + + + + + + + + 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 @@ -
      +
      • @@ -179,7 +184,7 @@ Buscar Proveedor -
        • +
      • @@ -248,7 +253,7 @@ Buscar Producto Servicios
        • -
      • +
      • Buscar Activo Fijo @@ -260,7 +265,7 @@ Buscar Cuentas Proveedor
        • -
      • +
      • Buscar Militante @@ -284,7 +289,8 @@
      • Mi Perfil
        • -
        • +
      • +
      • Cambiar Contraseña
      • Configuración Empresa
      • Cerrar Sesión
        • @@ -388,15 +394,15 @@
        -
        +
        - + - +
        @@ -432,7 +438,7 @@
        - +
        @@ -682,63 +688,63 @@ - - - - -
        -
        - -

        Folios descargados

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

        Folios descargados

        +
        +
        + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
        +
        + +
        -
        - -
        -
        - - - + + +
      ") Else - menuobj.MenuHTML.AppendFormat("") + menuobj.MenuHTML.Append("") End If - menuobj.MenuHTML.AppendFormat("") + + menuobj.MenuHTML.AppendFormat("{0}", modulo.RemoveDiacritics()) + For Each items As String In menuobj.modpadres + menuobj.MenuHTML.Append("-") + menuobj.MenuHTML.AppendFormat("{0}", items) + + Next + menuobj.MenuHTML.Append("") + menuobj.MenuHTML.Append("") Next Return menuobj @@ -393,13 +392,13 @@ Partial Class Site Dim menuobj = New MenuModal() menuobj.dt = dt menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero() + menuobj.strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://") + If Request.Url.Port <> 80 Then + menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") + End If Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj) - Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://") - If Request.Url.Port <> 80 Then - strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") - End If 'Dim MenuHTML As New StringBuilder 'For Each drP As DataRow In Inicio ' CveModuloPadre = drP("CveModulo").ToString().ToEntero() @@ -702,8 +701,4 @@ Partial Class Site Catch ex As Exception End Try End Sub -End Class -Public Class TipoCambioActual - Public Fecha As Date - Public TipoCambio As Decimal End Class \ No newline at end of file diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 2a532f414..18cc6879e 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -422,7 +422,7 @@ Public Class WSApp ObjInv.IniciaTransacSQL() Dim TieneError = False - If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then + If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then TieneError = True End If