primera subida del nuevo modulo

App_Code/ClsOIEventos.vb

@@ -1386,9 +1386,10 @@ Public Class ClsOIEventos
         Return Retorno
     End Function
 
-    Public Function AddCircular(Asunto As String, Circular As String, CorreosInternos As String, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CorreosExternos As String = "-1") As Boolean
+    Public Function AddCircular(Asunto As String, Circular As String, CorreosInternos As String, FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer,
+                                Optional CorreosExternos As String = "-1", Optional Adjunto As String = "-1") As Integer
 
-        Dim Retorno As Boolean = False
+        Dim Retorno As Integer = -1
 
         DataAdapter("PA_OI_CircularesAdd")
 
@@ -1400,12 +1401,14 @@ Public Class ClsOIEventos
             .Add("@CorreosExternos", SqlDbType.VarChar).Value = CorreosExternos
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@CveCircular", SqlDbType.Int).Direction = ParameterDirection.Output
 
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveCircular").Value.ToString.ToEntero
         Catch ex As Exception
             OnError("Ocurrió un error al agregar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try

General/CATIEPSxEntidadFed.aspx.cs

@@ -106,30 +106,12 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas
 
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
-        //GVIEPSxEntidadFed.ExportToExcelx("IEPS porEntidad Federativa");
         Imprimir("Excel");
     }
 
     protected void LnkPDF_Click(object sender, EventArgs e)
     {
         Imprimir("PDF");
-        //string FechaInicio = $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtIEPSfechaInicio.Text}";
-        //string FechaFin = $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtIEPSfechaFin.Text}";
-        //string Estado = DdlEstado.SelectedValue.ToEntero() > -1 ? $"&emsp;<b>Estado:</b>&nbsp;{DdlEstado.SelectedItem}" : "";
-        //string IEPS = DdlIeps.SelectedValue.ToEntero() > -1 ? $"&emsp;<b>IEPS:</b>&nbsp;{DdlIeps.SelectedItem}" : "";
-        //string Agrupador = DdlAgrupador.SelectedValue.ToEntero() > -1 ? $"&emsp;<b>Agrupador:</b>&nbsp;{DdlAgrupador.SelectedItem}" : "";
-        //List<ReportParameter> paramList = new List<ReportParameter>();
-        //paramList.Add(new ReportParameter("Logo", String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)));
-        //paramList.Add(new ReportParameter("FechaInicio", FechaInicio));
-        //paramList.Add(new ReportParameter("FechaFin", TxtIEPSfechaFin.Text));
-        //paramList.Add(new ReportParameter("Agrupador", DdlAgrupador.SelectedValue));
-        //paramList.Add(new ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
-        //paramList.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        //paramList.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
-        //paramList.Add(new ReportParameter("Filtros", $"{FechaInicio}{FechaFin}{IEPS}{Estado}{Agrupador}"));
-
-
-        //ImprimirPDF("Empresas/Grales/Formatos/CatIepsEntidadFed.rdlc", DtIEPS, paramList,"IEPS por entidades federativa",RDSName:"DsInventarios");
     }
 
     private void Imprimir(string formato)

OI/CircularDetalle.aspx

@@ -14,7 +14,7 @@
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAgregar" runat="server"> Agregar Circular</asp:LinkButton>
+                <asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-plus'></i> Agregar Documento"></asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -58,7 +58,7 @@
                                 <textarea runat="server" id="TxtCorreo" class="form-control"></textarea>
                             </div>
                             <div class="col-md-1" style="width: 15%">
-                                <asp:LinkButton runat="server" ID="LbBuscar">Buscar</asp:LinkButton>
+                                <asp:LinkButton runat="server" ID="LbBuscar" >Buscar</asp:LinkButton>
                             </div>
                         </div>
                         <br />
@@ -76,7 +76,16 @@
                                 <asp:Label runat="server" ID="LblCircular">Circular:</asp:Label>
                             </div>
                             <div class="col-md-1" style="width: 70%">
-                                <textarea runat="server" id="TxtCircular" class="form-control"></textarea>
+                                <textarea runat="server" id="TxtCircular" class="form-control" style="height:150px"></textarea>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-1" style="width:30%">
+                                <asp:Label runat="server" ID="LblAdjunto">Adjuntar archivo:</asp:Label>
+                            </div>
+                            <div class="col-md-1" style="width:70%">
+                                <asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                             </div>
                         </div>
                         <br />
@@ -115,7 +124,7 @@
                                     <asp:Button ID="BtnBuscar" runat="server" CssClass="btn btn-primary" Text="Buscar" Visible="true" ValidationGroup="GrpGuardar" />
                                 </div>
                             </div>
-                            <div class="row" style="margin-top: 30px; ">
+                            <div class="row" style="margin-top: 30px;">
                                 <asp:UpdatePanel runat="server" ID="UpUsuarios" UpdateMode="Conditional">
                                     <ContentTemplate>
                                         <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Nombre,Correo" EmptyDataText="No se encontraron Motivo de Baja Registrados"

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