-- se agregó columna de clasificación

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