diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 8a65a1f30..4e36ab9e0 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -2944,9 +2944,9 @@ Public Class ClsOIEventos
End Function
Public Function AddDocumento(CveSubCategoria As Integer, Descripcion As String, Observacion As String, Version As String, CveEstatus As Integer, ArchivoFisico As String,
- Responsable As String, FechaAprobacion As Date, CveDocumentoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+ Responsable As String, CveDocumentoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer
- Dim Retorno As Boolean = False
+ Dim Retorno As Integer = -1
DataAdapter("PA_OI_DocumentosAdd")
@@ -2958,15 +2958,15 @@ Public Class ClsOIEventos
.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
.Add("@ArchivoFisico", SqlDbType.NVarChar).Value = ArchivoFisico
.Add("@Responsable", SqlDbType.NVarChar).Value = Responsable
- .Add("@FechaAprobacion", SqlDbType.Date).Value = FechaAprobacion
.Add("@CveDocumentoPadre", SqlDbType.Int).Value = CveDocumentoPadre
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveDocumento", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
- Retorno = True
+ Retorno = SqlAdapter.SelectCommand.Parameters("@CveDocumento").Value.ToString().ToEntero()
Catch ex As Exception
OnError("Ocurrió un error al agregar el Documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
@@ -3027,6 +3027,50 @@ Public Class ClsOIEventos
End Function
#End Region
+#Region "OI_DocumentosAutorizacion"
+ Public Function AddDocumentoAutorizacion(CveDocumento As Integer, CveUsuario As Integer, Adjunto As String) As Boolean
+
+ Dim Retorno As Boolean = False
+
+ DataAdapter("OI_DocumentosAutorizacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@Adjunto", SqlDbType.NVarChar).Value = Adjunto
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar el usuario para autorizar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function GetDocumentoAutorizacion(CveDocumento As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_OI_DocumentosAutorizacionesGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveDocumento", SqlDbType.Int).Value = CveDocumento
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el usuario o usuarios para autorizar el documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+#End Region
+
#End Region
' IDisposable
diff --git a/OI/DocumentoDetalle.aspx b/OI/DocumentoDetalle.aspx
index c68c94b1e..f84a72807 100644
--- a/OI/DocumentoDetalle.aspx
+++ b/OI/DocumentoDetalle.aspx
@@ -26,8 +26,97 @@
-
+
+
+