diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e3c7c7be9..f0837a637 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -23178,7 +23178,7 @@ Partial Class Compras_Compras
                     Dim Importe As Decimal = row("Importe").ToString.ToDecimal
 
                     If Not CveSubProyecto > 0 Then
-                        SBErrores.Append($"Fila: {ContadorRow} SubProyecto: {row("SubProyecto").ToString} no encontrado.<br/>")
+                        SBErrores.Append($"Fila: {ContadorRow} SubProyecto: <b>'{row("SubProyecto").ToString}'</b> no encontrado.<br/>")
                         ErrorProceso = True
                     End If
 
@@ -23226,7 +23226,7 @@ Partial Class Compras_Compras
                 End If
 
             Else
-                Alert(SBErrores.ToString, TipoMensaje.MsgError)
+                Alert(SBErrores.ToString, TipoMensaje.MsgAdvertencia)
             End If
 
         End If
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 6f84c33b8..728d18b1c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3693,7 +3693,7 @@ Partial Class OC_OC
                             HuboError = True
                         End If
 
-                        Dim CveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+                        Dim CveSubProyecto As Integer = -1
 
                         If ModalidadSubProyectoGeneral Then
                             CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
@@ -3708,7 +3708,7 @@ Partial Class OC_OC
                                                         PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                         EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                         CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(),
-                                                        CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, DiasCreditoOC:=TxtDiasCreditoOC.Text.Toentero) Then
+                                                        CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, DiasCreditoOC:=TxtDiasCreditoOC.Text.ToEntero) Then
 
                             'CREA POLIZA POR CADA PROVEEDOR
 
@@ -3777,7 +3777,7 @@ Partial Class OC_OC
                     HuboError = True
                 End If
 
-                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+                Dim tCveSubProyecto As Integer = -1
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
                 If tCveSubProyecto <= 0 Then
                     tCveSubProyecto = GetCveSubProyectoDetalles()