From 9e487be27559af4f513863bcc46e27fb1b36eae3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 11 Jun 2021 09:00:57 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20agreg=C3=B3=20columna=20de=20clasific?=
 =?UTF-8?q?aci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contratos/ContratoObra.aspx.vb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 9826998e5..484dc6af8 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -4501,7 +4501,7 @@ Partial Class Contratos_ContratoObra
             {
                 .ColumnHeaders = True,
                 .StartRow = 0,
-                .NumberOfColumns = 5,
+                .NumberOfColumns = 6,
                 .NumberOfRows = worksheet.Rows.Count,
                 .Resolution = ColumnTypeResolution.AutoPreferStringCurrentCulture
             })
@@ -4605,8 +4605,6 @@ Partial Class Contratos_ContratoObra
                     If StrArray.Length > 0 Then
                         If CBool(StrArray(0)) = True Then
                             CvePS = StrArray(1).ToEntero
-
-
                         End If
                     End If
 
@@ -4614,8 +4612,13 @@ Partial Class Contratos_ContratoObra
 
                         Dim ObjPS As New ClsProductosServicios
 
+                        Dim CveClasificacion As Integer
+                        If DrowPS.Table.Columns.Contains("Clasificacion") Then
+                            CveClasificacion = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DrowPS("Clasificacion").ToString.Trim)).ToEntero
+                        Else
+                            CveClasificacion = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveClasificacion").ToString.ToEntero 'toma el primero
+                        End If
 
-                        Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveClasificacion").ToString.ToEntero
                         Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{ DrowPS("UnidadMedida").ToString}' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString}'").ToString.ToEntero
 
                         If Not CveUnidadMedida > 0 Then