From 01ed661a250bc000a6843e200ce1446004728fe2 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 5 Nov 2020 18:52:02 -0700
Subject: [PATCH] - parametro de cuenta

---
 App_Code/ClsContabilidad.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 39fd883db..e9b5be573 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5538,7 +5538,7 @@ Public Class ClsContabilidad
     End Function
 
 #Region "IVAS"
-    Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double) As Boolean
+    Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, CveCuentaBancaria As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_RepIVA")
         With SqlAdapter.SelectCommand.Parameters
@@ -5546,6 +5546,7 @@ Public Class ClsContabilidad
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio
@@ -5582,13 +5583,14 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, CveCuentaBancaria As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_ImpuestosComparativo")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -5602,7 +5604,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveCuentaBancaria As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_IVAAcumulado")
         With SqlAdapter.SelectCommand.Parameters
@@ -5610,6 +5612,7 @@ Public Class ClsContabilidad
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@TipoImpuesto", SqlDbType.Int).Value = TipoImpuesto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa