From 159ad81992f589307e3c8e5ab83680a4e3425d4c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 Feb 2025 19:06:13 -0700 Subject: [PATCH] --FIX subproyecto diferente en ps --- Ventas/Ventas.aspx.vb | 41 +++++++++++++++++++++++++++-------------- 1 file changed, 27 insertions(+), 14 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ccfb35bf5..279a9660f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9378,14 +9378,20 @@ Partial Class Ventas Dim Proyecto As String = "" Dim CveProyecto As Integer = -1 - If GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem IsNot Nothing Then - Proyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text - CveProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero() - End If + 'VER SI ESTA VISIBLE EL PROYECTO + If GvPS.Columns(8).Visible Then + If GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem IsNot Nothing Then + Proyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text + CveProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero() + End If - If GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem IsNot Nothing Then - SubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text - CveSubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() + If GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem IsNot Nothing Then + SubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text + CveSubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() + Else + SubProyecto = DdlSubProyectoDatos.SelectedItem.Text + CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() + End If Else SubProyecto = DdlSubProyectoDatos.SelectedItem.Text CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() @@ -9494,16 +9500,23 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PrecioLista") = PrecioLista End If - If GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").Items.Count = 0 Then - TmpDT.Rows(e.RowIndex)("SubProyecto") = "Sin SubProyecto Asignado" - Else - 'si está visible en el encabezado, si no esta visible que no actualice, porque generar error, selecciona el primer item - If DdlSubProyecto.Visible Then - TmpDT.Rows(e.RowIndex)("SubProyecto") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text - TmpDT.Rows(e.RowIndex)("CveSubProyecto") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue + 'VER SI ESTA VISIBLE EL PROYECTO + If GvPS.Columns(8).Visible Then + If GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").Items.Count = 0 Then + TmpDT.Rows(e.RowIndex)("SubProyecto") = "Sin SubProyecto Asignado" + Else + 'si está visible en el encabezado, si no esta visible que no actualice, porque generar error, selecciona el primer item + If DdlSubProyecto.Visible Then + TmpDT.Rows(e.RowIndex)("SubProyecto") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text + TmpDT.Rows(e.RowIndex)("CveSubProyecto") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue + End If End If + Else + TmpDT.Rows(e.RowIndex)("SubProyecto") = DdlSubProyectoDatos.SelectedItem.Text + TmpDT.Rows(e.RowIndex)("CveSubProyecto") = DdlSubProyectoDatos.SelectedValue.ToEntero() End If + 'RELACIONAL PS CON EL DESCUENTO If ObjDescuento IsNot Nothing Then ObjDescuento.Consec = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero()