From 1e6b259f017286205fcc59145a9c865a253bb1b8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 7 Jul 2023 10:19:53 -0700 Subject: [PATCH] RepEstadoFlujosEfectivo --- App_Code/ClsFinanzas.vb | 24 + .../Grales/Formatos/ReciboDePagoGOPDF.rdlc | 22 +- Finanzas/RepEstadoFlujoEfectivo.aspx | 624 +++++------------- Finanzas/RepEstadoFlujoEfectivo.aspx.vb | 328 ++------- 4 files changed, 238 insertions(+), 760 deletions(-) diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 362342b40..b5cb2e91a 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -363,6 +363,30 @@ Public Class ClsFinanzas Return Retorno End Function + Public Function GetEstadoFlujoEfectivoRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Finan_RF_EstadoFlujoEfectivoRepGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@Periodo", SqlDbType.Int).Value = Periodo + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar el Reporte de Estado de Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + #Region "RazonesFinancierasCuentas" Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc b/Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc index 70b5375a0..7a7b9184a 100644 --- a/Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc +++ b/Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc @@ -3308,7 +3308,13 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P - =First(Fields!Nombre.Value, "Emisor") + Visor CFDI + + + + =First(Fields!Nombre.Value, "Receptor") @@ -3478,9 +3484,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P - Serie/Folio + Serie/Folio: @@ -3492,7 +3498,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P Textbox31 0.00031cm 0.47652cm - 1.72389cm + 1.90028cm 7 @@ -3521,9 +3527,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P Textbox32 - 1.75948cm + 1.90059cm 0.47652cm - 3.00812cm + 2.86701cm 8