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

24
asmx/WS_PuntoVenta.asmx
View File

@@ -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