diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index b36cf01da..3b125265b 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4472,13 +4472,32 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region + + + Public Function GetReporteDiario(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_RepCierreDia") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(DSet) + Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al obtener los datos del reporte diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #Region "IDisposable Support" - - - ' IDisposable + + + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then diff --git a/Bancos/FlujoDiario.aspx b/Bancos/FlujoDiario.aspx index f7c74ee6f..621acd184 100644 --- a/Bancos/FlujoDiario.aspx +++ b/Bancos/FlujoDiario.aspx @@ -26,28 +26,52 @@
-
Fecha:
+
Fecha Inicio:
- + - + - - - - - - + + + + + + +
+
+ +
Fecha Fin:
+
+
+ + + + + + + + + +
Opción:
- - - - - + + + + + +
+
Vista:
+
+ + + + +
@@ -63,6 +87,5 @@ - diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index 21723b838..131baad04 100644 --- a/Bancos/FlujoDiario.aspx.vb +++ b/Bancos/FlujoDiario.aspx.vb @@ -44,7 +44,8 @@ Partial Class Bancos_FlujoDiario Private Sub Bancos_FlujoDiario_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - TxtFecha.Text = NowADS().ToString + TxtFechaI.Text = NowADS().AddDays(-1).ToString("dd/MM/yyyy") + TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy") End If End Sub @@ -56,9 +57,10 @@ Partial Class Bancos_FlujoDiario params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString)) + params.Add(New ReportParameter("FechaI", TxtFechaI.Text.ToDate.ToString("dd/MMM/yyyy", New System.Globalization.CultureInfo("es-MX")).Replace(".", "").ToUpper())) + params.Add(New ReportParameter("FechaF", TxtFechaF.Text.ToDate.ToString("dd/MMM/yyyy", New System.Globalization.CultureInfo("es-MX")).Replace(".", "").ToUpper())) - If Imagen.Exists Then + If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) @@ -68,23 +70,23 @@ Partial Class Bancos_FlujoDiario 'SE LLENA TmpDTSaldosIniciales Dim Ban As New ClsBancos - If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TmpDTSaldosIniciales = Ban.DtResultados + If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TmpDTSaldosIniciales = Ban.DtResultados.Copy() End If 'Se Llena TmpDTIngresosDelDia - If Ban.GetIngresoEgresosDelDia(1, TxtFecha.Text.ToDate, TxtFecha.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then - TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8") + If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then + TmpDTIngresosDelDia = Ban.DtResultados.Copy() '.FiltraParametros("CveTipoTransaccion <> 8") End If 'Se Llena TmpDTGastosDelDia - If Ban.GetIngresoEgresosDelDia(1, TxtFecha.Text.ToDate, TxtFecha.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then - TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2") + If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then + TmpDTGastosDelDia = Ban.DtResultados.Copy() '.FiltraParametros("CveTipoTransaccion <> 2") End If 'Se Llena TmpDTSaldosActuales - If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TmpDTSaldosActuales = Ban.DtResultados + If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TmpDTSaldosActuales = Ban.DtResultados.Copy() End If Ban.Dispose() @@ -103,7 +105,7 @@ Partial Class Bancos_FlujoDiario 'lrds.Add(rds5)- - ImprimirPDF("Empresas/Grales/Formatos/FlujoDiario.rdlc", lrds, params, NombreArchivo:=String.Format("FlujoDiario-{0}", TxtFecha.Text.ToDate.ToShortDateString)) + ImprimirPDF("Empresas/Grales/Formatos/FlujoDiario.rdlc", lrds, params, NombreArchivo:=String.Format("FlujoDiario-{0}", TxtFechaF.Text.ToDate.ToShortDateString)) End Sub diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 4555bc825..6f55e7050 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3612,10 +3612,10 @@
- + Fecha - + diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index d0b0efbb4..4a3404653 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -988,24 +988,29 @@
-
+
-
- Formato -
-
- +
+ Cargar Excel:
-
-
+
+
+
+ Formato +
+
+ Cargar +
+
+
diff --git a/Empresas/Grales/Formatos/FlujoDiario.rdlc b/Empresas/Grales/Formatos/FlujoDiario.rdlc index b1ea1c69a..54ab716e0 100644 --- a/Empresas/Grales/Formatos/FlujoDiario.rdlc +++ b/Empresas/Grales/Formatos/FlujoDiario.rdlc @@ -883,6 +883,7 @@ =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") @@ -2121,11 +2122,19 @@ - Fecha: + Periodo: