AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

primera subida del nuevo modulo

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-18 16:35:05 -07:00
parent ee9fdcc216
commit bf4614061d
4 changed files with 96 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsOIEventos.vb
View File

@@ -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

18
General/CATIEPSxEntidadFed.aspx.cs
View File

@@ -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)

17
OI/CircularDetalle.aspx
View File

@@ -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"

78
OI/CircularDetalle.aspx.vb
View File

@@ -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