diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 0c39802b5..4511742f4 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1429,7 +1429,7 @@ Partial Class Compras_eFacturas
                 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
                 filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
                 'AGREGA XML A LA LISTA
-                If FileExtension.ToUpper = "XML" Then
+                If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then
                     ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
                 End If
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 030b7dab3..5d6ca8ded 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2500,9 +2500,17 @@ Partial Class OC
                 GeneraReq = If(TipoOC = "REQ", True, False)
                 ViewState("TipoLargo") = "Orden Compra"
 
-                CveEstatusNuevo = If(TipoOC = "OC", CveEstatusInicialOC, CboE.SelectedValue.ToEntero)
+                CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
+                'If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
+                ' CveEstatusNuevo = If(TipoOC = "OC", CveEstatusInicialOC, CboE.SelectedValue.ToEntero)
+                ' Else
+                'CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
+                'End If
+
+
             End If
 
+
             'siempre se esta guardando el proveedor
             If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
                 CveProveedor = DdlProveedores.SelectedValue.ToEntero
@@ -2641,10 +2649,18 @@ Partial Class OC
                 OC.Commit()
                 BtnGuardar.Visible = False
             Else
+
                 If Conta IsNot Nothing Then Conta.RollBack()
                 If OC IsNot Nothing Then OC.RollBack()
                 Alert("Hubo un Error al registrar", TipoMensaje.MsgError)
                 CveOrdenCompra = -1
+
+
+                If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
+                    TipoOC = "REQ"
+                End If
+
+
             End If
 
             ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "")