-

App_Code/ClsPuntoVenta.vb

@@ -354,25 +354,6 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
-    Public Function GetVta_MovimientosCajas(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_MovimientosCajasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
-            .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los Movimientos de Caja del Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
     Public Function GetVta_VentasPago(CveCorte As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasPagoGet")

App_Code/ClsVentas.vb

@@ -3452,7 +3452,7 @@ Public Class ClsVentas
 #Region "Punto Venta"
     Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_CortesRep")
+        DataAdapter("PA_Vta_ReporteCortesGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -3572,6 +3572,25 @@ Public Class ClsVentas
 
     '    Return Retorno
     'End Function
+    Public Function GetVta_MovimientosCajas(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MovimientosCajasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Movimientos de Caja del Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MovimientosCajasRepGet")

asmx/WS_PuntoVenta.asmx

@@ -1149,21 +1149,21 @@ Public Class WS_PuntoVenta
         Return objVtaCortes
     End Function
 
-    <WebMethod()>
-    Public Function GetVta_MovimientosCajas(CveCorte As Integer, TipoMovimiento As Integer) As List(Of ClsMovimientosCajaWS)
-        Dim objPV As New ClsPuntoVenta()
-        Dim objMovimientosCaja As New List(Of ClsMovimientosCajaWS)
+    '<WebMethod()>
+    'Public Function GetVta_MovimientosCajas(CveCorte As Integer, TipoMovimiento As Integer) As List(Of ClsMovimientosCajaWS)
+    '    Dim objPV As New ClsPuntoVenta()
+    '    Dim objMovimientosCaja As New List(Of ClsMovimientosCajaWS)
 
-        If objPV.GetVta_MovimientosCajas(CveCorte, TipoMovimiento) Then
-            For Each Row As DataRow In objPV.DtResultados.Rows
-                objMovimientosCaja.Add(New ClsMovimientosCajaWS(Row("CveMovimiento").ToString.ToEntero, Row("CveCorte").ToString.ToEntero, Row("Importe").ToString.ToEntero, Row("Descripcion").ToString, Row("TipoMovimiento").ToString))
-            Next
-        End If
+    '    If objPV.GetVta_MovimientosCajas(CveCorte, TipoMovimiento) Then
+    '        For Each Row As DataRow In objPV.DtResultados.Rows
+    '            objMovimientosCaja.Add(New ClsMovimientosCajaWS(Row("CveMovimiento").ToString.ToEntero, Row("CveCorte").ToString.ToEntero, Row("Importe").ToString.ToEntero, Row("Descripcion").ToString, Row("TipoMovimiento").ToString))
+    '        Next
+    '    End If
 
-        objPV.Dispose()
+    '    objPV.Dispose()
 
-        Return objMovimientosCaja
-    End Function
+    '    Return objMovimientosCaja
+    'End Function
 
     <WebMethod()>
     Public Function AddVta_MovimientosCajas(CveCorte As Integer, CveUsuario As Integer, Importe As Double, Descripcion As String, TipoMovimiento As Integer, Fecha As DateTime) As Integer