diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 80a1ee26c..b8eb3b700 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -3112,6 +3112,25 @@ Public Class ClsOIEventos
Return Retorno
End Function
+
+ Public Function DesaprobarDocumentoAutorizacion(CveAutorizacion As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_OI_DocumentosAutorizacionesDesaprobar")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al desaprobar la autorización del documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
#End Region
#End Region
diff --git a/Empresas/72/Formatos/Entradas.rdlc b/Empresas/72/Formatos/Entradas.rdlc
index 8a86b04cd..36bd50101 100644
--- a/Empresas/72/Formatos/Entradas.rdlc
+++ b/Empresas/72/Formatos/Entradas.rdlc
@@ -866,11 +866,77 @@
+
+ true
+ true
+
+
+
+
+ =Parameters!Observaciones.Value
+
+
+
+
+
+
+ Textbox8
+ 3.8986cm
+ 0.17882cm
+ 0.97952cm
+ 19.04079cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ OBSERVACIONES:
+
+
+
+
+
+
+ Textbox5
+ 3.11339cm
+ 0.18166cm
+ 0.60882cm
+ 3.98167cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
- 1.75444in
+ 1.94921in