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

-- cuentas de cajas chicas.

Browse Source
This commit is contained in:
rrene
2025-04-22 14:28:42 -07:00
parent 319a35e7c6
commit 04fc9eba20
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/PVCobranza.aspx.vb
View File

@@ -3101,7 +3101,10 @@ Partial Class Ventas_PVCobranza
Dim objPuntoVenta As New ClsPuntoVenta Dim objPuntoVenta As New ClsPuntoVenta
Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1) Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1)
Dim FechaFin As Date = New Date(FechaInicio.Year, 12, 31) Dim FechaFin As Date = New Date(FechaInicio.Year, 12, 31)
Dim CveCuenta As Integer = 197107 Dim CveCuenta As Integer = -2
If UsuarioActual.CveEmpresa = 189 Then CveCuenta = 197107 'gdiaz
If UsuarioActual.CveEmpresa = 197 Then CveCuenta = 187752 'ayven
If objPuntoVenta.GetVta_EstadoCajas(CveCuenta, UsuarioActual.CveEmpresa, FechaInicio, FechaFin) Then If objPuntoVenta.GetVta_EstadoCajas(CveCuenta, UsuarioActual.CveEmpresa, FechaInicio, FechaFin) Then
GvEstadoCajas.DataSource = objPuntoVenta.DtResultados GvEstadoCajas.DataSource = objPuntoVenta.DtResultados