primera subida del nuevo modulo

OI/CircularDetalle.aspx.vb

@@ -1,6 +1,7 @@
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports System.IO
 
 Partial Class OI_CircularDetalle
     Inherits ClsPaginas
@@ -80,7 +81,9 @@ Partial Class OI_CircularDetalle
             End If
         Else
             Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
-            If ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra) Then
+            Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra)
+            If CircularInsertado > 0 Then
+                GuardarArchivo(CircularInsertado)
                 Alert("Ingresado correctamente")
             End If
         End If
@@ -129,4 +132,77 @@ Partial Class OI_CircularDetalle
         RegistraScript("$('#ModalDescuento').modal('hide')")
         UpCliente.Update()
     End Sub
+
+    Private Function GuardarArchivo(CircularInsertado As Integer) As String
+
+        Dim respuesta As String = ""
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
+        Dim Filename As String = ""
+
+        For Each fileItem As Archivo In Filesgral
+            Try
+                respuesta = fileItem.filenameO
+                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                Dim tempArray() As String
+                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Formatos\" & CircularInsertado & "_" & fileItem.filenameO
+                'Dim docAnterior As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & DocumentacionFormato
+
+                'If DocumentacionFormato.Trim.Length > 0 Then
+                '    If File.Exists(docAnterior) Then
+                '        File.Delete(docAnterior)
+                '    End If
+                'End If
+
+                If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then
+                    Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos")
+
+                End If
+
+                If System.IO.File.Exists(rutaDestino) Then
+                    System.IO.File.Delete(rutaDestino)
+                End If
+
+                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
+
+            Catch ex As Exception
+                OnError("Error al cargar archivo", ex)
+            End Try
+            TxtFileDocumentacion.Text = ""
+        Next
+
+
+        Return respuesta
+    End Function
+
+    Protected Sub LnkMandarCorreo_Click() Handles LnkMandarCorreo.Click
+        Dim correos() As String
+        correos = TxtCorreo.Value.Split(Environment.NewLine)
+        'MandaCorreo()
+    End Sub
+
+    Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte())
+
+        Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC)
+        a.GuardaLog()
+
+        Dim Mail As New ClsSisMail()
+        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+        Dim itemMail As New ClsSisMail.ArchivoMail
+
+        With itemMail
+            itemMail.ArchivoBinario = ArchivoBinario
+            itemMail.NombreArchivo = "Invitación.pdf"
+
+        End With
+
+        LSRutasMail.Add(itemMail)
+
+
+        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail)
+        Mail = Nothing
+    End Sub
 End Class