From bab0ef3ffdd86a14c7dbc856d609c39af23f7cbc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 9 Feb 2022 19:52:31 -0700
Subject: [PATCH] Correcion de ruta de empresa al guardar cotizaciones rapidas

---
 OC/OC.aspx.vb | 48 ++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 46 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index b83424a7b..c8ecc8f12 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -19,6 +19,14 @@ Partial Class OC
             ViewState("CveEmpresaActual") = value
         End Set
     End Property
+    Private Property EmpresaActualOC As Empresa
+        Get
+            EmpresaActualOC = If(IsNothing(ViewState("EmpresaActualOC")), Nothing, DirectCast(ViewState("EmpresaActualOC"), Empresa))
+        End Get
+        Set(value As Empresa)
+            ViewState("EmpresaActualOC") = value
+        End Set
+    End Property
     Private Property CveUsuarioAsignado As Integer
         Get
             Return If(IsNothing(ViewState("CveUsuarioAsignado")), -1, ViewState("CveUsuarioAsignado").ToString.ToEntero)
@@ -584,6 +592,9 @@ Partial Class OC
             CveProveedorOriginal = -1
             'MODALIDAD MULTIEMPRESA
             CveEmpresaActual = UsuarioActual.CveEmpresa
+            If CveEmpresaActual > 0 Then
+                EmpresaActualOC = UsuarioActual.Empresa
+            End If
             CargaEstatusUsuariosClasificaciones()
 
             TxtObsPS.Attributes.Add("maxlength", "750")
@@ -1275,6 +1286,9 @@ Partial Class OC
 
         If objOC.GetOC(pCveOrdenCompra, CveEmpresaActual, CveUsuario:=UsuarioActual.CveUsuario) AndAlso objOC.DtResultados.Rows.Count > 0 Then
             CveEmpresaActual = objOC.CveEmpresa
+            If CveEmpresaActual > 0 Then
+                EmpresaActualOC = CreaObjetoEmpresa(CveEmpresaActual)
+            End If
             InicializarValores()
 
             ViewState("CveOrdenCompra") = pCveOrdenCompra
@@ -4956,6 +4970,27 @@ Partial Class OC
 
     End Sub
 
+    Private Function CreaObjetoEmpresa(CveEmpresa As Integer) As Empresa
+        Dim Retorno As Empresa = Nothing
+
+        Dim ObjEmpresa As New ClsSisEmpresas()
+        If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
+            If ObjEmpresa.GetEmpresasFuncionalidades(CveEmpresa) Then
+                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+
+                Dim EmpresasFuncionalidades As New HybridDictionary
+                For Each Row As Data.DataRow In dttmp.Rows
+                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
+                Next
+                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
+            End If
+
+            Retorno = ObjEmpresa.Empresa
+        End If
+        ObjEmpresa.Dispose()
+
+        Return Retorno
+    End Function
 
 #Region "  GUARDA DIRECTO  "
     Private Sub GuardaBitacora(Optional EsCotizacion As Boolean = False)
@@ -4974,7 +5009,12 @@ Partial Class OC
         If ObjEventoBitacora.AddEventoBitacora(descripcion, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra, Prioridad:=Prioridad) Then
 
             If Filename <> "" Then
-                Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", CveEmpresaActual))
+                If EmpresaActualOC IsNot Nothing Then
+                    Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}\OI", EmpresaActualOC.Ruta), ConcatenarDirectorioBase:=False)
+                Else
+                    Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", CveEmpresaActual))
+                End If
+
             End If
 
             GvEB.DataSource = ObjEventoBitacora.DtResultados
@@ -5061,7 +5101,11 @@ Partial Class OC
         End If
 
         If Filename <> "" Then
-            Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, DtDetalle.Rows.Count), String.Format("Empresas\{0}\OI\Temp", CveEmpresaActual))
+            If EmpresaActualOC IsNot Nothing Then
+                Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, DtDetalle.Rows.Count), String.Format("{0}OI\Temp", EmpresaActualOC.Ruta), ConcatenarDirectorioBase:=False)
+            Else
+                Filename.FilesMove(String.Format("OI{0}{1}", UsuarioActual.CveUsuario, DtDetalle.Rows.Count), String.Format("Empresas\{0}\OI\Temp", CveEmpresaActual))
+            End If
         End If