Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -90,9 +90,9 @@
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
|
||||
<asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
|
||||
<asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
|
||||
<asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Cerrado" Value="0"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate">SubProyecto:</label>
|
||||
@@ -172,6 +172,11 @@
|
||||
</asp:TemplateField>
|
||||
<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">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgVer" OnClick="ImgVer_Click" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
|
||||
@@ -3571,6 +3571,22 @@ Public Class ClsNominas
|
||||
retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.")
|
||||
Return retorno
|
||||
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
|
||||
|
||||
|
||||
@@ -854,7 +854,7 @@
|
||||
</div>
|
||||
|
||||
<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">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -915,6 +915,12 @@
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</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 class="col-md-6 ">
|
||||
@@ -976,13 +982,7 @@
|
||||
</td>
|
||||
<td align="right"> 
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
</tr>
|
||||
@@ -1117,12 +1117,7 @@
|
||||
</table>
|
||||
</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>
|
||||
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -1418,11 +1418,6 @@ Partial Class Compras_Compras
|
||||
|
||||
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
|
||||
|
||||
ViewState("CveCompra") = Request("CveCompra")
|
||||
@@ -1462,9 +1457,9 @@ Partial Class Compras_Compras
|
||||
UpLnkPaqueteriaGuias.Update()
|
||||
End If
|
||||
|
||||
If Not CveCompra > 0 Then
|
||||
LIContratos.Visible = True
|
||||
End If
|
||||
If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True
|
||||
|
||||
If Not CveCompra > 0 Then LIContratos.Visible = True
|
||||
|
||||
'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero)
|
||||
@@ -10171,7 +10166,7 @@ Partial Class Compras_Compras
|
||||
CargaGvInv()
|
||||
CargaGVsAF()
|
||||
CargaGvPersonal()
|
||||
Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.MsgInformacion)
|
||||
Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.ToastInformacion)
|
||||
End Sub
|
||||
Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
@@ -1107,6 +1107,19 @@
|
||||
<asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</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>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -781,6 +781,11 @@ Partial Class Compras_eFacturas
|
||||
CargaGvBitacora()
|
||||
CargaDatos()
|
||||
MostrarSolcitudesSAT()
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
GVSolicitudesPendientes.Columns(8).Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
removeasincevent()
|
||||
End Sub
|
||||
@@ -5033,6 +5038,26 @@ Partial Class Compras_eFacturas
|
||||
RegistraScript("$('#DvmodalPersonalizar').modal('show');")
|
||||
|
||||
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
|
||||
|
||||
|
||||
@@ -5052,6 +5077,12 @@ Public Class GeneralesAPIeFacturas
|
||||
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)
|
||||
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
|
||||
|
||||
|
||||
|
||||
@@ -506,7 +506,7 @@
|
||||
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
Impuesto<br />
|
||||
correspondiente(mes)
|
||||
correspondiente<br />(mes)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblImpuestoCorrespondienteMes" runat="server" Text='<%# Eval("ImpuestoCorrespondienteMes", "{0:N2}") %>'></asp:Label>
|
||||
@@ -574,7 +574,7 @@
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
Gratificación anual (Gravado)
|
||||
Gratificación <br />anual (Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP002G" runat="server" Text='<%# Eval("P002G", "{0:N2}") %>'></asp:Label>
|
||||
@@ -593,7 +593,7 @@
|
||||
<HeaderTemplate>
|
||||
Viáticos y<br />
|
||||
gastos de<br />
|
||||
viaje (Gravado)
|
||||
viaje <br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP050G" runat="server" Text='<%# Eval("P050G", "{0:N2}") %>'></asp:Label>
|
||||
@@ -603,7 +603,7 @@
|
||||
<HeaderTemplate>
|
||||
Viáticos y<br />
|
||||
gastos de<br />
|
||||
viaje (Exento)
|
||||
viaje <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP050E" runat="server" Text='<%# Eval("P050E", "{0:N2}") %>'></asp:Label>
|
||||
@@ -855,7 +855,7 @@
|
||||
<HeaderTemplate>
|
||||
Seguro de<br />
|
||||
gastos médicos<br />
|
||||
mayores (Gravado)
|
||||
mayores <br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP030G" runat="server" Text='<%# Eval("P030G", "{0:N2}") %>'></asp:Label>
|
||||
@@ -865,7 +865,7 @@
|
||||
<HeaderTemplate>
|
||||
Seguro de<br />
|
||||
gastos médicos<br />
|
||||
mayores (Exento)
|
||||
mayores <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP030E" runat="server" Text='<%# Eval("P030E", "{0:N2}") %>'></asp:Label>
|
||||
@@ -963,7 +963,7 @@
|
||||
<HeaderTemplate>
|
||||
Ayuda para<br />
|
||||
artículos<br />
|
||||
escolares (Exento)
|
||||
escolares <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP035E" runat="server" Text='<%# Eval("P035E", "{0:N2}") %>'></asp:Label>
|
||||
@@ -973,7 +973,7 @@
|
||||
<HeaderTemplate>
|
||||
Dotación o<br />
|
||||
ayuda para<br />
|
||||
anteojos (Gravado)
|
||||
anteojos <br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP036G" runat="server" Text='<%# Eval("P036G", "{0:N2}") %>'></asp:Label>
|
||||
@@ -983,7 +983,7 @@
|
||||
<HeaderTemplate>
|
||||
Dotación o<br />
|
||||
ayuda para<br />
|
||||
anteojos (Exento)
|
||||
anteojos <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Ayuda para<br />
|
||||
transporte (Gravado)
|
||||
transporte <br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Ayuda par<br />
|
||||
a transporte (Exento)
|
||||
a transporte <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Cuotas sindicales<br />
|
||||
pagadas patron(Gravado)
|
||||
pagadas patron<br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Cuotas sindicales<br />
|
||||
pagadas patron(Exento)
|
||||
pagadas patron<br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Subsidios por<br />
|
||||
incapacidad (Gravado)
|
||||
incapacidad <br />(Gravado)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<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">
|
||||
<HeaderTemplate>
|
||||
Subsidios por<br />
|
||||
incapacidad (Exento)
|
||||
incapacidad <br />(Exento)
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblP015E" runat="server" Text='<%# Eval("P015E", "{0:N2}") %>'></asp:Label>
|
||||
@@ -1350,6 +1350,11 @@
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
@@ -100,15 +100,53 @@ Partial Class Nomina_RepPersonalDIM
|
||||
End Sub
|
||||
|
||||
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}")
|
||||
End Sub
|
||||
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
||||
End Sub
|
||||
|
||||
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)
|
||||
Response.Clear()
|
||||
@@ -121,39 +159,27 @@ Partial Class Nomina_RepPersonalDIM
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function ConvertirTablaATexto(ByVal DT As DataTable) 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()
|
||||
Public Function ConvertirGVATexto() As String
|
||||
|
||||
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
|
||||
sb.Append("|")
|
||||
End If
|
||||
Next
|
||||
sb.AppendLine()
|
||||
Dim countRows As Integer = 1
|
||||
For Each GvRow As GridViewRow In GvDatos.Rows
|
||||
|
||||
If Not countRows = 1 Then
|
||||
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
|
||||
|
||||
Return sb.tostring
|
||||
Return sb.ToString
|
||||
|
||||
End Function
|
||||
|
||||
@@ -292,14 +318,46 @@ Partial Class Nomina_RepPersonalDIM
|
||||
|
||||
' 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
|
||||
|
||||
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.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
|
||||
worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
|
||||
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.Font.Color = 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(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
|
||||
Try
|
||||
@@ -330,21 +388,18 @@ Partial Class Nomina_RepPersonalDIM
|
||||
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
|
||||
|
||||
If I > 0 Then
|
||||
|
||||
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
|
||||
|
||||
If I > 7 Then
|
||||
worksheet.Columns(I).Width = 4500
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Reference in New Issue
Block a user