From 3345e1066c9427905f6a252223fe8c13c04d7beb Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 18 May 2023 11:54:26 -0700 Subject: [PATCH] Compras pago creditos --- App_Code/ClsFinanzas.vb | 26 + App_Code/ClsPaginas.vb | 2 + Compras/Compras.aspx | 195 ++-- Compras/Compras.aspx.vb | 122 ++- Compras/eFacturas.aspx.vb | 4 +- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 2 +- Empresas/119/Formatos/ReciboDePago.rdlc | 169 +--- Empresas/158/Formatos/Factura.rdlc | 48 +- Finanzas/RepEstadoFlujoEfectivo.aspx | 951 +++++++++++++++++++ Finanzas/RepEstadoFlujoEfectivo.aspx.vb | 640 +++++++++++++ 10 files changed, 1859 insertions(+), 300 deletions(-) create mode 100644 Finanzas/RepEstadoFlujoEfectivo.aspx create mode 100644 Finanzas/RepEstadoFlujoEfectivo.aspx.vb diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 2d99601cd..362342b40 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -313,6 +313,32 @@ Public Class ClsFinanzas End Function + Public Function GetRazonesFinancierasEstadoFlujoEfectivoRep(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 + + Public Function GetRazonesFinancierasRatiosRep(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_RatiosRepGet") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3966630af..d578a11e3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7829,6 +7829,7 @@ Public Class ClsPaginas Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia) If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor) + Pago.ImportePago = Pago.ImportePago + Pago.OtroGastoIngreso If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True @@ -9047,6 +9048,7 @@ Public Class ClsPaginas PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649) PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1) PaginaDict.Add("/Finanzas/RepRazonesFinancieras2.aspx".ToUpper(), 1337) + PaginaDict.Add("/Finanzas/RepEstadoFlujoEfectivo.aspx".ToUpper(), 1338) #End Region #Region "Flotillas" PaginaDict.Add("/Flotillas/CatCombustibles.aspx".ToUpper(), 284) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 2e2d188fe..d18d9b3ba 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2521,76 +2521,7 @@ - - -
-
- -
- -
- -
-
- - - - -
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - -
-
- - + <%--<%--Reembolsos--%>
@@ -4292,6 +4223,130 @@ + + + + + + + + + + + + + + + + + + + + <%--MODAL AGREGAR/EDITAR PS--%>