From 3662e653c17aea76483cb415617951592b5682cf Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 16 Nov 2022 13:59:04 -0700
Subject: [PATCH] -- se quito parametro cveiesustitucion

---
 App_Code/ClsMovimientos.vb | 45 +++++++++++++++++++-------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 5caa49efb..0cbfb0931 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -110,28 +110,28 @@ Public Class ClsMovimientos
 
     Public Sub Commit()
         SqlTransacc.Commit()
-    End Sub
-
+    End Sub
+
 #Region "CxC"
-    'Public Function GetCxCCliente(CveCliente As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
-    '    'Data = New DataTable
-    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
-    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
-    '    DataAdapter("PA_ClienteCxC")
-    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As SqlException
-    '        OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
-
-    '    Return Retorno
-    'End Function
-
-    Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional CveIESustitucion As Integer = -1, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
+    'Public Function GetCxCCliente(CveCliente As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    'Data = New DataTable
+    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
+    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+    '    DataAdapter("PA_ClienteCxC")
+    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As SqlException
+    '        OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+
+    Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
         Dim Retorno As Boolean = False
 
         FechaCorte = IIf(FechaCorte = Nothing, Date.Now.AddYears(1), FechaCorte).ToString.ToDate
@@ -146,8 +146,7 @@ Public Class ClsMovimientos
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
-            .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion
+            .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
             .Add("@FechaVencimientoI", SqlDbType.Date).Value = FechaVencimientoI
             .Add("@FechaVencimientoF", SqlDbType.Date).Value = FechaVencimientoF
         End With