-- cuentas de cajas chicas.

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