From eaf6f2b872f476581dae05e1df2c2e760f8547a2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Feb 2024 15:43:54 -0700 Subject: [PATCH] =?UTF-8?q?--Correci=C3=B3n=20de=20tipo=20de=20relacion=20?= =?UTF-8?q?manual?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9f0633599..a17c40d89 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -12075,6 +12075,12 @@ Partial Class Ventas 'Amortizacion ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero() + If Me.AplicaRelacionManual Then + If DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 AndAlso Me.TmpDTFacturasRelacionadas IsNot Nothing AndAlso Me.TmpDTFacturasRelacionadas.Rows.Count > 0 Then + ObjFactura.CveTipoRelacion = DdlTipoRelacionARelacionar.SelectedValue.ToEntero() + End If + End If + 'If ObjFactura.CveTipoRelacion > 0 Then ' Select Case ObjFactura.CveTipoRelacion ' Case 7 @@ -12625,7 +12631,7 @@ Partial Class Ventas End If 'SI LAS FACTURAS SE RELACIONARAN MANUALMENTE SE AGREGAN - If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then + If Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then Dim CveTipoRelacion As Integer = DdlTipoRelacionARelacionar.SelectedValue.ToEntero() @@ -13402,7 +13408,7 @@ Partial Class Ventas End If End If - If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual Then + If Me.AplicaRelacionManual Then For Each GvRow As GridViewRow In GvFacturasRelacionadas.Rows If GvRow.RowType = DataControlRowType.DataRow Then If GvRow.DataKey("CveVenta").ToEntero() > 0 Then