From 04fc9eba20776560cca28fe9d443c23c3c81b883 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 22 Apr 2025 14:28:42 -0700
Subject: [PATCH] -- cuentas de cajas chicas.

---
 Ventas/PVCobranza.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 68f1cf8a0..c2c964ae5 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -3101,7 +3101,10 @@ Partial Class Ventas_PVCobranza
         Dim objPuntoVenta As New ClsPuntoVenta
         Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1)
         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
             GvEstadoCajas.DataSource = objPuntoVenta.DtResultados