From 76b158f2bef29ffb1ad183d7199c77c7d1b89a43 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 18 Sep 2020 20:41:08 -0700 Subject: [PATCH] nueva consulta de pagos no bancarios --- App_Code/ClsBancos.vb | 21 ++++++++++++++++ Compras/Proveedores.aspx | 46 +++++++++++++++++++++++++++++++++++ Compras/Proveedores.aspx.vb | 11 ++++++++- RH/Personal.aspx | 26 ++++++++++++++++++++ RH/Personal.aspx.vb | 12 +++++++++- Ventas/Clientes.aspx | 48 +++++++++++++++++++++++++++++++++++++ Ventas/Clientes.aspx.vb | 10 ++++++++ 7 files changed, 172 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 1ed92ca05..286824794 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4760,4 +4760,25 @@ Public Class ClsBancos #End Region +#Region "reportes" + Public Function GetPagosNoBancarios(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Banc_PagosNoBancarios") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los pagos no bancarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region End Class diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 9cfbdc5f5..929b552c4 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2164,6 +2164,52 @@ +
+
+
+ + Pagos no bancarios +
+
+
+ + + + + + + + + + +
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ +
+ + + + + + + + + + + + + + +
+
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 435d893c5..d0c99d4d9 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -511,7 +511,7 @@ Partial Class Compras_Proveedores 'CargaColectivas() 'CargaSaldosBeneficiarios() CargaUsuariosPortal() - + CargarPagosNoBancarios() CargaFiltroMonedas() MostrarFiltro() @@ -6269,6 +6269,15 @@ Partial Class Compras_Proveedores End If End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/RH/Personal.aspx b/RH/Personal.aspx index fc309b263..613bc415a 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2822,6 +2822,32 @@ +
+
+
+ + Pagos no bancarios +
+
+
+
+ + + + + + + + + + + + + +
+
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 1ab33cd40..c5750f271 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1509,7 +1509,8 @@ Partial Class RH_Personal 'Carga Conceptos de Nómina CarcaConceptosNomina() - + 'Carga Pagos no Bancarios + CargarPagosNoBancarios() 'Carga Resguardos Dim ObjResguardos As New ClsAF If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then @@ -6338,4 +6339,13 @@ Partial Class RH_Personal End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b9895d553..e81cadbb6 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2396,6 +2396,54 @@
+ +
+
+
+ + Pagos no bancarios +
+
+
+ + + + + + + + + + +
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ +
+ + + + + + + + + + + + + + +
+
+
+ diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0aecf49c4..901b52c25 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1388,6 +1388,7 @@ Partial Class Clientes 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() + CargarPagosNoBancarios() If UsuarioActual.TienePermisoProceso(279) Then LnkPorcentajeMarcas.Visible = True @@ -10150,5 +10151,14 @@ Partial Class Clientes Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) CargaEstados(DdlSATPais.SelectedValue) End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class