diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 444749611..806b5b9f1 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6012,7 +6012,7 @@ Partial Class Bancos_IE
 
         Dim Banco As New ClsBancos
 
-        If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+        If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not Banco.DtResultados.Rows.Count > 0 Then
                 Banco.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index a9bf3cfff..aa604a144 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -3605,7 +3605,7 @@ Partial Class Bancos_PopIEVentas
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
 
-        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not ObjBancos.DtResultados.Rows.Count > 0 Then
                 ObjBancos.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
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