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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-06-22 20:30:47 -07:00
parent 391fd759f0 bbc9e55607
commit 27a04732d1
8 changed files with 204 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -90,9 +90,9 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem> <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
<asp:ListItem Text="Enviado" Value="2"></asp:ListItem> <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
<asp:ListItem Text="Cerrado" Value="0"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">SubProyecto:</label> <label class="col-md-1 truncate">SubProyecto:</label>
@@ -172,6 +172,11 @@
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="Mov. Salida" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ControlStyle-CssClass="Texto"/> <asp:HyperLinkField HeaderText="Mov. Salida" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ControlStyle-CssClass="Texto"/>
<asp:TemplateField HeaderText="Notas" ItemStyle-Width ="120px" >
<ItemTemplate>
<asp:Literal ID="LblSerieFolioNotas" runat="server" Text='<%# Eval("SerieFolioNotas") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="120px"> <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="120px">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="ImgVer" OnClick="ImgVer_Click" runat="server" AlternateText="Editar" CausesValidation="False" <asp:LinkButton ID="ImgVer" OnClick="ImgVer_Click" runat="server" AlternateText="Editar" CausesValidation="False"

16
App_Code/ClsNominas.vb
View File

@@ -3571,6 +3571,22 @@ Public Class ClsNominas
retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.") retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.")
Return retorno Return retorno
End Function End Function
Public Function SolicitudesCancelar(CveSolicitud As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SolicitudesCancelar", CommandType.StoredProcedure)
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
addParameters("@CveUsuario", SqlDbType.Int, CveUsuario)
retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.")
Return retorno
End Function
#End Region #End Region
#End Region #End Region

23
Compras/Compras.aspx
View File

@@ -854,7 +854,7 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6" style="min-height:200px">
<asp:UpdatePanel ID="UPPAnticiposSel" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPAnticiposSel" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -915,6 +915,12 @@
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div style=" vertical-align: bottom; display: table-cell;">
<asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
<asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
</div>
</div> </div>
<div class="col-md-6 "> <div class="col-md-6 ">
@@ -976,13 +982,7 @@
</td> </td>
<td align="right">&nbsp <td align="right">&nbsp
&nbsp; &nbsp;
<asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink> <asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink>
</td> </td>
</tr> </tr>
@@ -1117,12 +1117,7 @@
</table> </table>
</div> </div>
</div> </div>
<div class="col-md-6 ">
<asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
<asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
</div>
</div> </div>
</ContentTemplate> </ContentTemplate>

13
Compras/Compras.aspx.vb
View File

@@ -1418,11 +1418,6 @@ Partial Class Compras_Compras
End If End If
If UsuarioActual.TienePermisoProceso(360) Then
BtnProrateoDeducible.Visible = True
End If
ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
ViewState("CveCompra") = Request("CveCompra") ViewState("CveCompra") = Request("CveCompra")
@@ -1462,9 +1457,9 @@ Partial Class Compras_Compras
UpLnkPaqueteriaGuias.Update() UpLnkPaqueteriaGuias.Update()
End If End If
If Not CveCompra > 0 Then If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True
LIContratos.Visible = True
End If If Not CveCompra > 0 Then LIContratos.Visible = True
'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero) LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero)
@@ -10171,7 +10166,7 @@ Partial Class Compras_Compras
CargaGvInv() CargaGvInv()
CargaGVsAF() CargaGVsAF()
CargaGvPersonal() CargaGvPersonal()
Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.MsgInformacion) Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.ToastInformacion)
End Sub End Sub
Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then

13
Compras/eFacturas.aspx
View File

@@ -1107,6 +1107,19 @@
<asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label> <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="" Visible="false">
<ItemTemplate>
<asp:LinkButton ID="LnkRemoveSolicitud" runat="server" OnClick="LnkRemoveSolicitud_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la solicitud?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

31
Compras/eFacturas.aspx.vb
View File

@@ -781,6 +781,11 @@ Partial Class Compras_eFacturas
CargaGvBitacora() CargaGvBitacora()
CargaDatos() CargaDatos()
MostrarSolcitudesSAT() MostrarSolcitudesSAT()
If UsuarioActual.CveRol = 1 Then
GVSolicitudesPendientes.Columns(8).Visible = True
End If
End If End If
removeasincevent() removeasincevent()
End Sub End Sub
@@ -5033,6 +5038,26 @@ Partial Class Compras_eFacturas
RegistraScript("$('#DvmodalPersonalizar').modal('show');") RegistraScript("$('#DvmodalPersonalizar').modal('show');")
End Sub End Sub
Protected Sub LnkRemoveSolicitud_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim ProcesoOk As Boolean = False
Dim CveSolicitud = gvRow.DataKey("CveSolicitud").ToEntero
Dim Folio = gvRow.DataKey("Folio").ToEntero
Using nom As ClsNominas = New ClsNominas()
ProcesoOk = nom.SolicitudesCancelar(CveSolicitud, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
End Using
If ProcesoOk Then
Alert($"Solicitud {Folio} cancelada correctamente.")
cargasolicitudes()
End If
End Sub
End Class End Class
@@ -5052,6 +5077,12 @@ Public Class GeneralesAPIeFacturas
Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object
Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False) Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
End Function End Function
Public Function CancelarSolicitud(CveEmpresa As Integer, CveSolicitud As Integer, CveUsuario As Integer) As Object
Return getData(Of Object)($"CancelarSolicitud/{CveEmpresa}/{CveSolicitud}/{CveUsuario}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
End Function
End Class End Class

35
Nomina/RepPersonalDIM.aspx
View File

@@ -506,7 +506,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Impuesto<br /> Impuesto<br />
correspondiente(mes) correspondiente<br />(mes)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblImpuestoCorrespondienteMes" runat="server" Text='<%# Eval("ImpuestoCorrespondienteMes", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblImpuestoCorrespondienteMes" runat="server" Text='<%# Eval("ImpuestoCorrespondienteMes", "{0:N2}") %>'></asp:Label>
@@ -574,7 +574,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Gratificación anual (Gravado) Gratificación <br />anual (Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP002G" runat="server" Text='<%# Eval("P002G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP002G" runat="server" Text='<%# Eval("P002G", "{0:N2}") %>'></asp:Label>
@@ -593,7 +593,7 @@
<HeaderTemplate> <HeaderTemplate>
Viáticos y<br /> Viáticos y<br />
gastos de<br /> gastos de<br />
viaje (Gravado) viaje <br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP050G" runat="server" Text='<%# Eval("P050G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP050G" runat="server" Text='<%# Eval("P050G", "{0:N2}") %>'></asp:Label>
@@ -603,7 +603,7 @@
<HeaderTemplate> <HeaderTemplate>
Viáticos y<br /> Viáticos y<br />
gastos de<br /> gastos de<br />
viaje (Exento) viaje <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP050E" runat="server" Text='<%# Eval("P050E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP050E" runat="server" Text='<%# Eval("P050E", "{0:N2}") %>'></asp:Label>
@@ -855,7 +855,7 @@
<HeaderTemplate> <HeaderTemplate>
Seguro de<br /> Seguro de<br />
gastos médicos<br /> gastos médicos<br />
mayores (Gravado) mayores <br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP030G" runat="server" Text='<%# Eval("P030G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP030G" runat="server" Text='<%# Eval("P030G", "{0:N2}") %>'></asp:Label>
@@ -865,7 +865,7 @@
<HeaderTemplate> <HeaderTemplate>
Seguro de<br /> Seguro de<br />
gastos médicos<br /> gastos médicos<br />
mayores (Exento) mayores <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP030E" runat="server" Text='<%# Eval("P030E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP030E" runat="server" Text='<%# Eval("P030E", "{0:N2}") %>'></asp:Label>
@@ -963,7 +963,7 @@
<HeaderTemplate> <HeaderTemplate>
Ayuda para<br /> Ayuda para<br />
artículos<br /> artículos<br />
escolares (Exento) escolares <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP035E" runat="server" Text='<%# Eval("P035E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP035E" runat="server" Text='<%# Eval("P035E", "{0:N2}") %>'></asp:Label>
@@ -973,7 +973,7 @@
<HeaderTemplate> <HeaderTemplate>
Dotación o<br /> Dotación o<br />
ayuda para<br /> ayuda para<br />
anteojos (Gravado) anteojos <br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP036G" runat="server" Text='<%# Eval("P036G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP036G" runat="server" Text='<%# Eval("P036G", "{0:N2}") %>'></asp:Label>
@@ -983,7 +983,7 @@
<HeaderTemplate> <HeaderTemplate>
Dotación o<br /> Dotación o<br />
ayuda para<br /> ayuda para<br />
anteojos (Exento) anteojos <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP036E" runat="server" Text='<%# Eval("P036E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP036E" runat="server" Text='<%# Eval("P036E", "{0:N2}") %>'></asp:Label>
@@ -992,7 +992,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Ayuda para<br /> Ayuda para<br />
transporte (Gravado) transporte <br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP013G" runat="server" Text='<%# Eval("P013G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP013G" runat="server" Text='<%# Eval("P013G", "{0:N2}") %>'></asp:Label>
@@ -1001,7 +1001,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Ayuda par<br /> Ayuda par<br />
a transporte (Exento) a transporte <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP013E" runat="server" Text='<%# Eval("P013E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP013E" runat="server" Text='<%# Eval("P013E", "{0:N2}") %>'></asp:Label>
@@ -1010,7 +1010,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Cuotas sindicales<br /> Cuotas sindicales<br />
pagadas patron(Gravado) pagadas patron<br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP014G" runat="server" Text='<%# Eval("P014G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP014G" runat="server" Text='<%# Eval("P014G", "{0:N2}") %>'></asp:Label>
@@ -1019,7 +1019,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Cuotas sindicales<br /> Cuotas sindicales<br />
pagadas patron(Exento) pagadas patron<br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP014E" runat="server" Text='<%# Eval("P014E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP014E" runat="server" Text='<%# Eval("P014E", "{0:N2}") %>'></asp:Label>
@@ -1028,7 +1028,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Subsidios por<br /> Subsidios por<br />
incapacidad (Gravado) incapacidad <br />(Gravado)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP015G" runat="server" Text='<%# Eval("P015G", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP015G" runat="server" Text='<%# Eval("P015G", "{0:N2}") %>'></asp:Label>
@@ -1037,7 +1037,7 @@
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate> <HeaderTemplate>
Subsidios por<br /> Subsidios por<br />
incapacidad (Exento) incapacidad <br />(Exento)
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblP015E" runat="server" Text='<%# Eval("P015E", "{0:N2}") %>'></asp:Label> <asp:Label ID="LblP015E" runat="server" Text='<%# Eval("P015E", "{0:N2}") %>'></asp:Label>
@@ -1350,6 +1350,11 @@
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

153
Nomina/RepPersonalDIM.aspx.vb
View File

@@ -100,15 +100,53 @@ Partial Class Nomina_RepPersonalDIM
End Sub End Sub
Private Sub Imprimir(Optional reporte As String = "PDF") Private Sub Imprimir(Optional reporte As String = "PDF")
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
row.Controls.Add(cell)
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
End Sub End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub End Sub
Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click
Dim tabla As DataTable = Dt_Datos
Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirTablaATexto(tabla))
Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirGVATexto())
Using memoryStream As New MemoryStream(contenidoBytes) Using memoryStream As New MemoryStream(contenidoBytes)
Response.Clear() Response.Clear()
@@ -121,39 +159,27 @@ Partial Class Nomina_RepPersonalDIM
End Sub End Sub
Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String Public Function ConvertirGVATexto() As String
Dim DTDatos As DataTable = DT.Copy()
Dim columnasARemover As New List(Of DataColumn)()
For Each columna As DataColumn In DTDatos.Columns
If columna.ColumnName.Contains("CvePersonal") Then
columnasARemover.Add(columna)
End If
Next
For Each columna As DataColumn In columnasARemover
DTDatos.Columns.Remove(columna)
Next
DTDatos.AcceptChanges()
Dim sb As New StringBuilder Dim sb As New StringBuilder
For Each fila As DataRow In DTDatos.Rows
For i As Integer = 0 To DTDatos.Columns.Count - 1
sb.Append(fila(i).ToString())
If i < DTDatos.Columns.Count - 1 Then Dim countRows As Integer = 1
sb.Append("|") For Each GvRow As GridViewRow In GvDatos.Rows
End If
Next If Not countRows = 1 Then
sb.AppendLine() For Each cell As TableCell In GvRow.Cells
For Each control As Control In cell.Controls
If TypeOf control Is Label Then
Dim label As Label = DirectCast(control, Label)
sb.Append($"{label.Text.Trim.Replace("True", "1").Replace("False", "0")}|")
End If
Next
Next
sb.AppendLine()
End If
countRows = countRows + 1
Next Next
Return sb.ToString
Return sb.tostring
End Function End Function
@@ -292,14 +318,46 @@ Partial Class Nomina_RepPersonalDIM
' TotalRowHeader += 2 ' TotalRowHeader += 2
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(61, 74, 26), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20
worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) 'worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0)
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Size = 12 * 20
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
' worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0)
If i > 0 Then If i > 0 Then
Try Try
@@ -330,21 +388,18 @@ Partial Class Nomina_RepPersonalDIM
End If End If
worksheet.Columns(0).Width = 4000
worksheet.Columns(1).Width = 4000
worksheet.Columns(2).Width = 5500
worksheet.Columns(3).Width = 10000
worksheet.Columns(4).Width = 5000
worksheet.Columns(5).Width = 5000
worksheet.Columns(6).Width = 10000
worksheet.Columns(7).Width = 5000
For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
If I > 7 Then
If I > 0 Then worksheet.Columns(I).Width = 4500
If 1 = 1 Then
worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
Else
worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
End If
Try
worksheet.Columns(I).AutoFit(1)
Catch ex As Exception
End Try
End If End If
Next Next