AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2024-05-31 21:29:32 -07:00
parent 8b3257d7be
commit ae59545855
3 changed files with 32 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
App_Code/ClsPuntoVenta.vb
View File

@@ -354,25 +354,6 @@ Public Class ClsPuntoVenta
Return Retorno Return Retorno
End Function 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 Public Function GetVta_VentasPago(CveCorte As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasPagoGet") DataAdapter("PA_Vta_VentasPagoGet")

21
App_Code/ClsVentas.vb
View File

@@ -3452,7 +3452,7 @@ Public Class ClsVentas
#Region "Punto Venta" #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 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesRep") DataAdapter("PA_Vta_ReporteCortesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -3572,6 +3572,25 @@ Public Class ClsVentas
' Return Retorno ' Return Retorno
'End Function '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 Public Function GetVta_MovimientosCajasReporte(CveCorte As Integer, TipoMovimiento As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_MovimientosCajasRepGet") DataAdapter("PA_Vta_MovimientosCajasRepGet")

24
asmx/WS_PuntoVenta.asmx
View File

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