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:42:18 -07:00
parent 0dedc847dc
commit 3609bb71d9
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/PVCobranza.aspx.vb
View File

@@ -740,7 +740,7 @@ Partial Class Ventas_PVCobranza
ObjPVenta.Dispose() ObjPVenta.Dispose()
End Sub End Sub
Private Sub CargaEntradasSalidas() Private Sub CargaEntradasSalidas()
Dim ObjPVenta As New ClsPuntoVenta Dim ObjPVenta As New ClsVentas
'Salida 'Salida
If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then
@@ -1005,7 +1005,7 @@ Partial Class Ventas_PVCobranza
Dim FechaI As Date = If(txtFechaI.Text <> "", txtFechaI.Text.ToDate, MinFecha) Dim FechaI As Date = If(txtFechaI.Text <> "", txtFechaI.Text.ToDate, MinFecha)
Dim FechaF As Date = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate, MaxFecha) Dim FechaF As Date = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate, MaxFecha)
Dim ObjPuntoVenta As New ClsPuntoVenta Dim ObjPuntoVenta As New ClsVentas
If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
GvD.DataSource = ObjPuntoVenta.DtResultados GvD.DataSource = ObjPuntoVenta.DtResultados

2
Ventas/Ventas.aspx.vb
View File

@@ -3902,7 +3902,7 @@ Partial Class Ventas
ObjPVenta.Dispose() ObjPVenta.Dispose()
End Sub End Sub
Private Sub CargaEntradasSalidas() Private Sub CargaEntradasSalidas()
Dim ObjPVenta As New ClsPuntoVenta Dim ObjPVenta As New ClsVentas
'Salida 'Salida
If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then