From 4edc27d2db0387504b11282567f0d45cfa013f3c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Feb 2025 19:26:30 -0700 Subject: [PATCH] --FIX para E01 --- Ventas/PVCobranza.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 0d1558ff9..d284ce7a8 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -523,7 +523,7 @@ Partial Class Ventas_PVCobranza HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago") HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza") - If UsuarioActual.CveEmpresa = 189 AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then + If UsuarioActual.CveEmpresa.Contiene(189, 1) AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then DivAnticipo.Visible = True ImgAntiPend.Visible = True End If @@ -572,6 +572,9 @@ Partial Class Ventas_PVCobranza End Sub Private Sub BtnPagar_Click(sender As Object, e As EventArgs) Handles BtnPagar.Click + + Dim GenerarFac As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 189, 197) + 'registrar pago Dim VentaContado As Boolean = HdnVentaCondicionesPago.Value = "0" @@ -680,7 +683,7 @@ Partial Class Ventas_PVCobranza Dim PlazoCobranza As Integer = HdnPlazoCobranza.Value.ToEntero Try 'FACTURAR LA REMISION PARA HACER EL PAGO - If UsuarioActual.CveEmpresa.Contiene(1, 189, 197) AndAlso VentaActual.TipoDocto = "Rem" Then + If GenerarFac AndAlso VentaActual.TipoDocto = "Rem" Then CveVentaRemision = HdnCveVenta.Value.ToEntero