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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-12-14 18:01:15 -07:00
parent 83b34036c8 6b3ea4669a
commit d2bc929043
16 changed files with 393 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
General/CONTRATO.doc
View File

Binary file not shown.

BIN
General/CONTRATOINVERNADERO.doc Normal file
View File

Binary file not shown.

2
General/RepIndicadorResumen.aspx
View File

@@ -612,7 +612,7 @@
//newData.sort(function (a, b) { //newData.sort(function (a, b) {
// return a[0] > b[0] ? 1 : -1; // return a[0] > b[0] ? 1 : -1;
//}); //});
console.log(JSON.stringify(newData)) //console.log(JSON.stringify(newData))
return newData; return newData;
} }

8
Inventarios/EntregaAlmacen.aspx
View File

@@ -48,6 +48,14 @@
Entrega Almacén (Surtir Mercancia) Entrega Almacén (Surtir Mercancia)
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<li>
<asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li> <li>

79
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -268,7 +268,30 @@ Partial Class Inventarios_EntregaAlmacen
ViewState("FormaPaqueteria") = value ViewState("FormaPaqueteria") = value
End Set End Set
End Property End Property
'Private Property IndexSeccionAlmacen As Integer
' Get
' Return CType(ViewState("IndexSeccionAlmacen"), Integer)
' End Get
' Set(value As Integer)
' ViewState("IndexSeccionAlmacen") = value
' End Set
'End Property
Private Property ArchivoBitacora As String
Get
Return CType(ViewState("ArchivoBitacora"), String)
End Get
Set(value As String)
ViewState("ArchivoBitacora") = value
End Set
End Property
Private Property ArchivoBitacoraDetalle As String
Get
Return CType(ViewState("ArchivoBitacoraDetalle"), String)
End Get
Set(value As String)
ViewState("ArchivoBitacoraDetalle") = value
End Set
End Property
#End Region #End Region
@@ -318,7 +341,10 @@ Partial Class Inventarios_EntregaAlmacen
DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAlmacen.SelectedValue = "-1" DdlAlmacen.SelectedValue = "-1"
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) If UsuarioActual.CveAlmacen > 0 Then
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
RecargaporAlmacenes()
End If
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind() DdlAlmacenTransitorio.DataBind()
@@ -551,6 +577,15 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
If ArchivoBitacora <> "" Then
Dim Archivo = New System.IO.FileInfo(ArchivoBitacora)
If Archivo.Exists() Then
HplCargaBitacora.Visible = True
uppCargaBitacora.Update()
End If
End If
DtDatos = ObjInventario.DtResultados DtDatos = ObjInventario.DtResultados
If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer)) If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer))
@@ -1280,6 +1315,7 @@ Partial Class Inventarios_EntregaAlmacen
Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString) Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString)
DtDatosDetalle.Rows.Add(Row) DtDatosDetalle.Rows.Add(Row)
ActualizaBitacora()
RegistraScript("playsonidito('beep-07.wav')", "Sonidito") RegistraScript("playsonidito('beep-07.wav')", "Sonidito")
If Tipo = 1 Then If Tipo = 1 Then
@@ -1307,11 +1343,44 @@ Partial Class Inventarios_EntregaAlmacen
End Try End Try
DtDatosDetalle.AcceptChanges() DtDatosDetalle.AcceptChanges()
ActualizaBitacora()
CargaSerie() CargaSerie()
End Sub End Sub
#End Region #End Region
#Region "Bitacora"
Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
If Not Eliminar Then
DtDatos.TableName = "DtDatos"
DtDatosDetalle.TableName = "DtDatosDetalle"
DtDatos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
DtDatosDetalle.WriteXml(ArchivoBitacoraDetalle, XmlWriteMode.WriteSchema)
Else
File.Delete(ArchivoBitacora)
End If
End Sub
Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
If IO.File.Exists(ArchivoBitacora) Then
'DtInv.Clear()
'DtDatosDetalle.Clear()
DtDatos.ReadXml(ArchivoBitacora)
If IO.File.Exists(ArchivoBitacoraDetalle) Then
Dim dtt As New DataTable
dtt.ReadXml(ArchivoBitacoraDetalle)
DtDatosDetalle = dtt
Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
End If
CargaGvDatos()
Else
Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
End If
End Sub
#End Region
#Region " AGREGA CON LOTE BATCH " #Region " AGREGA CON LOTE BATCH "
Private Sub CreaDtDetalleLote() Private Sub CreaDtDetalleLote()
@@ -3894,7 +3963,11 @@ Partial Class Inventarios_EntregaAlmacen
RegistraScript("$('#ModalVerSugerencias').modal('hide')") RegistraScript("$('#ModalVerSugerencias').modal('hide')")
End Sub End Sub
Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged
RecargaporAlmacenes()
End Sub
Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero) CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
End If End If

14
Inventarios/RecepcionAlmacen.aspx
View File

@@ -17,13 +17,15 @@
<li> <li>
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink> <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink>
</li> </li>
<asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline"><ContentTemplate> <asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<li> <ContentTemplate>
<asp:Linkbutton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:Linkbutton> <li>
<asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
</li> </li>
</ContentTemplate></asp:UpdatePanel> </ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Recepción Almacén Recepción Almacén

22
Nomina/Aguinaldo.aspx
View File

@@ -1,4 +1,5 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %> <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %>
<%@ Import Namespace="Extensiones" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
@@ -139,7 +140,8 @@
<Columns> <Columns>
<asp:TemplateField HeaderText="Nombre "> <asp:TemplateField HeaderText="Nombre ">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblnombreCompleto" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label> <asp:HyperLink ID="HypnombreCompleto" Visible='<%# Eval("CvePersonal").ToString().ToEntero() > 0%>' runat="server" Text='<%# Eval("Nombre")%>' NavigateUrl='<%# Eval("CvePersonal","/RH/Personal.aspx?CvePersonal={0}")%>'> </asp:HyperLink>
<asp:Label ID="lblnombreCompleto" Visible='<%# (Eval("CvePersonal").ToString().ToEntero() <= 0)%>' runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField > <asp:TemplateField >
@@ -170,6 +172,24 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" /> <ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField >
<HeaderTemplate>
Días <br />Faltados
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="TxtdiasFaltados" runat="server" Text='<%# Eval("DiasFaltados", "{0:N0}")%>'> </asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField>
<asp:TemplateField >
<HeaderTemplate>
Días <br />Incapacidad
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="TxtdiasIncapacidad" runat="server" Text='<%# Eval("DiasIncapacidad", "{0:N0}")%>'> </asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Días <br />base Días <br />base

87
Nomina/Aguinaldo.aspx.cs
View File

@@ -542,25 +542,28 @@ public partial class Nomina_Aguinaldo : ClsPaginas
fila = fila + 1; fila = fila + 1;
int filatitulo = fila; int filatitulo = fila;
libro.SheetView.Freeze(filatitulo, 1); libro.SheetView.Freeze(filatitulo, 1);
libro.Cell(fila, 1).Value = "Empleado"; int cxc = 1;
libro.Cell(fila, 2).Value = "Fecha ingreso";//lblfechaingreso libro.Cell(fila, cxc++).Value = "Empleado";
libro.Cell(fila, 3).Value = "Salario diario"; libro.Cell(fila, cxc++).Value = "Fecha ingreso";//lblfechaingreso
libro.Cell(fila, 4).Value = "Días laborados"; libro.Cell(fila, cxc++).Value = "Salario diario";
libro.Cell(fila, 5).Value = "Días base"; libro.Cell(fila, cxc++).Value = "Días laborados";
libro.Cell(fila, 6).Value = "Días aguinaldo";//lbldiasAguinaldoprop libro.Cell(fila, cxc++).Value = "Días Faltados";//lbldiasAguinaldoprop
libro.Cell(fila, 7).Value = "Aguinaldo completo"; libro.Cell(fila, cxc++).Value = "Días Incapacidad";//lbldiasAguinaldoprop
libro.Cell(fila, 8).Value = "Aguinaldo gravado"; libro.Cell(fila, cxc++).Value = "Días base";
libro.Cell(fila, 9).Value = "Aguinaldo exento"; libro.Cell(fila, cxc++).Value = "Días aguinaldo";//lbldiasAguinaldoprop
libro.Cell(fila, 10).Value = "Fraccion I"; //lblFraccion1 libro.Cell(fila, cxc++).Value = "Aguinaldo completo";
libro.Cell(fila, 11).Value = "Fraccion II"; //lblFraccion2 libro.Cell(fila, cxc++).Value = "Aguinaldo gravado";
libro.Cell(fila, 12).Value = "Fraccion III"; //lblFraccion3 libro.Cell(fila, cxc++).Value = "Aguinaldo exento";
libro.Cell(fila, 13).Value = "Fraccion IV"; //lblFraccion4 libro.Cell(fila, cxc++).Value = "Fraccion I"; //lblFraccion1
libro.Cell(fila, 14).Value = "I.S.R."; libro.Cell(fila, cxc++).Value = "Fraccion II"; //lblFraccion2
libro.Cell(fila, 15).Value = "Descuento"; //TxtDescuento libro.Cell(fila, cxc++).Value = "Fraccion III"; //lblFraccion3
libro.Cell(fila, 16).Value = "Aguinaldo por pagar"; libro.Cell(fila, cxc++).Value = "Fraccion IV"; //lblFraccion4
libro.Cell(fila, cxc++).Value = "I.S.R.";
libro.Cell(fila, cxc++).Value = "Descuento"; //TxtDescuento
libro.Cell(fila, cxc++).Value = "Aguinaldo por pagar";
libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; libro.Range(fila, 1, fila, 18).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); libro.Range(fila, 1, fila, 18).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows) foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows)
{ {
fila = fila + 1; fila = fila + 1;
@@ -570,42 +573,44 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{ {
if (gvrow.DataKey("CveSubProyecto").ToEntero() > 0) if (gvrow.DataKey("CveSubProyecto").ToEntero() > 0)
{ {
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 217, 217)); libro.Range(fila, 1, fila, 18).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 217, 217));
} }
else else
{ {
libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; libro.Range(fila, 1, fila, 18).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 128, 128)); libro.Range(fila, 1, fila, 18).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 128, 128));
} }
} }
cxc = 1;
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblnombreCompleto").Text;
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblfechaingreso").Text;
libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasFaltados").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasIncapacidad").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 1).Value = gvrow.FCLabel("lblnombreCompleto").Text; libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion1").Text.ToDecimal();
libro.Cell(fila, 2).Value = gvrow.FCLabel("lblfechaingreso").Text; libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion2").Text.ToDecimal();
libro.Cell(fila, 3).Value = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion3").Text.ToDecimal();
libro.Cell(fila, 4).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion4").Text.ToDecimal();
libro.Cell(fila, 5).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal();
libro.Cell(fila, 6).Value = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToDecimal();
libro.Cell(fila, 7).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal();
libro.Cell(fila, 8).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 9).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 10).Value = gvrow.FCLabel("lblFraccion1").Text.ToDecimal();
libro.Cell(fila, 11).Value = gvrow.FCLabel("lblFraccion2").Text.ToDecimal();
libro.Cell(fila, 12).Value = gvrow.FCLabel("lblFraccion3").Text.ToDecimal();
libro.Cell(fila, 13).Value = gvrow.FCLabel("lblFraccion4").Text.ToDecimal();
libro.Cell(fila, 14).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal();
libro.Cell(fila, 15).Value = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal();
libro.Cell(fila, 16).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal();
} }
libro.Range(filatitulo, 1, fila, 16).Columns(); libro.Range(filatitulo, 1, fila, 18).Columns();
libro.Range(filatitulo + 1, 3, fila + 1, 16).DataType = ClosedXML.Excel.XLDataType.Number; libro.Range(filatitulo + 1, 3, fila + 1, 18).DataType = ClosedXML.Excel.XLDataType.Number;
libro.Range(filatitulo + 1, 3, fila + 1, 3).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.Range(filatitulo + 1, 3, fila + 1, 3).Style.NumberFormat.Format = "$###,###,###,##0.00";
libro.Range(filatitulo + 1, 7, fila + 1, 16).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.Range(filatitulo + 1, 9, fila + 1, 18).Style.NumberFormat.Format = "$###,###,###,##0.00";
libro.ColumnsUsed().AdjustToContents(); libro.ColumnsUsed().AdjustToContents();
System.IO.Stream fs = new System.IO.MemoryStream(); System.IO.Stream fs = new System.IO.MemoryStream();

212
Nomina/Finiquito.aspx
View File

@@ -77,8 +77,9 @@
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li><asp:HyperLink ID="Hypgenerarotro" NavigateUrl="/Nomina/Finiquito.aspx?CvePersonal=-1" runat="server">Generar otro finiquito</asp:HyperLink></li> <li>
<asp:HyperLink ID="Hypgenerarotro" NavigateUrl="/Nomina/Finiquito.aspx?CvePersonal=-1" runat="server">Generar otro finiquito</asp:HyperLink></li>
<li> <li>
<asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class='material-icons'>done_all</i>Autorizar</asp:LinkButton> <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class='material-icons'>done_all</i>Autorizar</asp:LinkButton>
</li> </li>
@@ -285,6 +286,11 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservaciones" runat="server" Text="" TextMode="MultiLine" Rows="3" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="Observaciones " AssociatedControlID="TxtObservaciones"></asp:Label>
</div>
<%--<div class="form-group form-md-line-input input-iconright"> <%--<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="form-control select2me" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="form-control select2me" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Ordinario" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Ordinario" Value="-1"></asp:ListItem>
@@ -498,7 +504,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalEmpleados" class="modal ADS fade " role="dialog" > <div id="ModalEmpleados" class="modal ADS fade " role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEmpleados" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEmpleados" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -528,8 +534,8 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog" > <div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -539,105 +545,105 @@
<h4 class="modal-title">Salario Finiquito</h4> <h4 class="modal-title">Salario Finiquito</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Tipo de salario Tipo de salario
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal> <asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Días ultimo mes Días ultimo mes
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFDias" runat="server"></asp:Literal> <asp:Literal ID="LtlSFDias" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Percepciones ultimo mes Percepciones ultimo mes
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal> <asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Salario Variable Salario Variable
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFVar" runat="server"></asp:Literal> <asp:Literal ID="LtlSFVar" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
SDI
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-12 text-center">
Salario Finiquito<br />
<asp:Literal ID="LtlSF" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="portlet light xspadding bordered" id="pnlFiniquitosalario"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
<div class="portlet-title"> SDI
<div class="caption "> </div>
<i class="fa fa-bookmark font-yellow-gold"></i> <div class="col-md-8">
<span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span> <asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal>
</div> </div>
<div class="tools"> </div>
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <div class="row">
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a> <div class="col-md-12 text-center">
</div> Salario Finiquito<br />
<div class="actions"> <asp:Literal ID="LtlSF" runat="server"></asp:Literal>
<div class="btn-group"> </div>
<%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%>
</div> </div>
</div>
</div> <div class="portlet light xspadding bordered" id="pnlFiniquitosalario">
<div class="portlet-body "> <div class="portlet-title">
<asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF" <div class="caption ">
Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true" > <i class="fa fa-bookmark font-yellow-gold"></i>
<Columns> <span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span>
<asp:TemplateField HeaderText="Periodo"> </div>
<ItemTemplate> <div class="tools">
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space:nowrap "></asp:Label> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</ItemTemplate> <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
<ItemStyle HorizontalAlign="Left" Width="37%" /> </div>
</asp:TemplateField> <div class="actions">
<asp:TemplateField HeaderText="Código"> <div class="btn-group">
<ItemTemplate> <%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space:nowrap "></asp:Label> </div>
</ItemTemplate> </div>
<ItemStyle HorizontalAlign="Left" Width="37%" /> </div>
</asp:TemplateField> <div class="portlet-body ">
<asp:TemplateField HeaderText="Concepto"> <asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF"
<ItemTemplate> Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true">
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space:nowrap"></asp:Label> <Columns>
</ItemTemplate> <asp:TemplateField HeaderText="Periodo">
<ItemStyle HorizontalAlign="Left" Width="37%" /> <ItemTemplate>
</asp:TemplateField> <asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space: nowrap"></asp:Label>
<asp:TemplateField HeaderText="Importe"> </ItemTemplate>
<ItemTemplate> <ItemStyle HorizontalAlign="Left" Width="37%" />
<asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space:nowrap"></asp:Label> </asp:TemplateField>
</ItemTemplate> <asp:TemplateField HeaderText="Código">
<ItemStyle HorizontalAlign="Right" Width="13%" /> <ItemTemplate>
</asp:TemplateField> <asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space: nowrap"></asp:Label>
</Columns> </ItemTemplate>
<HeaderStyle CssClass="SearchADHeader" /> <ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:GridView> </asp:TemplateField>
</div> <asp:TemplateField HeaderText="Concepto">
</div> <ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" Width="13%" />
</asp:TemplateField>
</Columns>
<HeaderStyle CssClass="SearchADHeader" />
</asp:GridView>
</div>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">

5
Nomina/Finiquito.aspx.cs
View File

@@ -152,6 +152,7 @@ public partial class Nomina_Finiquito : ClsPaginas
CvePersonalAltas = da["CvePersonalAltas"].ToString().ToEntero(); CvePersonalAltas = da["CvePersonalAltas"].ToString().ToEntero();
LblFechaAlta.Text = string.Format("{0:dd/MM/yyyy}", da["FechaInicio"]); LblFechaAlta.Text = string.Format("{0:dd/MM/yyyy}", da["FechaInicio"]);
FechaInicio = LblFechaAlta.Text.ToDateTime(); FechaInicio = LblFechaAlta.Text.ToDateTime();
TxtObservaciones.Text = da["Observaciones"].ToString();
TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]); TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]);
{ {
if (da["CveMotivoBaja"].ToString() == "") if (da["CveMotivoBaja"].ToString() == "")
@@ -168,7 +169,7 @@ public partial class Nomina_Finiquito : ClsPaginas
} }
} }
DdlTipoPeriodo.SelectedValueExist(da["CveTipoPeriodo"]); DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString()=="6"?"-2":"-1"));
DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]);
TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}";
ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE");
@@ -1086,7 +1087,7 @@ public partial class Nomina_Finiquito : ClsPaginas
using (ClsRH ObjPersonal = new ClsRH()) using (ClsRH ObjPersonal = new ClsRH())
using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL()))
{ {
if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
{ {
DataRow da = ObjPersonal.DtResultados.Rows[0]; DataRow da = ObjPersonal.DtResultados.Rows[0];
CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();

5
Nomina/MovimientosSUA.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Movimientos SUA Movimientos IMSS
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
@@ -15,6 +15,9 @@
<li> <li>
<asp:LinkButton ID="LnkDownTxt" Visible="true" OnClick="LnkDownTxt_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo SUA</asp:LinkButton> <asp:LinkButton ID="LnkDownTxt" Visible="true" OnClick="LnkDownTxt_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo SUA</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LNKDownIDSE" Visible="true" OnClick="LNKDownIDSE_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo IDSE</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

5
Nomina/MovimientosSUA.aspx.cs
View File

@@ -97,4 +97,9 @@ public partial class Nomina_MovimientosSUA : ClsPaginas
} }
RegistraScript(string.Format("SaveCsv(\"Movt.txt\", '{0}');", movtos)); RegistraScript(string.Format("SaveCsv(\"Movt.txt\", '{0}');", movtos));
} }
protected void LNKDownIDSE_Click(object sender, EventArgs e)
{
}
} }

4
Nomina/RepFiniquito.aspx
View File

@@ -105,11 +105,11 @@
<asp:Label ID="lbltimbrado" runat="server" Text='<%# Eval("Timbrado")%>'> </asp:Label> <asp:Label ID="lbltimbrado" runat="server" Text='<%# Eval("Timbrado")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cve Pre Poliza Provision"> <%--<asp:TemplateField HeaderText="Cve Pre Poliza Provision">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcvePrePolizaProvision" runat="server" Text='<%# Eval("CvePrePolizaProvision")%>'> </asp:Label> <asp:Label ID="lblcvePrePolizaProvision" runat="server" Text='<%# Eval("CvePrePolizaProvision")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField HeaderText="Motivo Baja"> <asp:TemplateField HeaderText="Motivo Baja">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblmotivoBaja" runat="server" Text='<%# Eval("MotivoBaja")%>'> </asp:Label> <asp:Label ID="lblmotivoBaja" runat="server" Text='<%# Eval("MotivoBaja")%>'> </asp:Label>

2
RH/ActualizacionMasiva.aspx.vb
View File

@@ -1,6 +1,7 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports ClosedXML.Excel
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
@@ -391,6 +392,7 @@ Partial Class RH_ActualizacionMasiva
If continuar Then If continuar Then
Try Try
Dim workbook = New XLWorkbook(fileItem.FileUrl)
DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ") DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ")
Catch ex As Exception Catch ex As Exception
continuar = False continuar = False

11
RH/Personal.aspx
View File

@@ -188,6 +188,11 @@
<label for="<%= DdlPais.ClientID.ToString()%>">Nacionalidad: </label> <label for="<%= DdlPais.ClientID.ToString()%>">Nacionalidad: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCiudadOrigen" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtCiudadOrigen.ClientID.ToString()%>">Ciudad Nacimiento: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label> <label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label>
@@ -302,6 +307,12 @@
<label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label> <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstadosDomicilio" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEstadosDomicilio.ClientID.ToString()%>">Estado: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" style="display: none;"> <div class="form-group form-md-line-input input-iconright" style="display: none;">
<asp:TextBox CssClass="form-control" ID="TxtEstado" runat="server" MaxLength="30"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtEstado" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label> <label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label>

104
RH/Personal.aspx.vb
View File

@@ -1354,6 +1354,8 @@ Partial Class RH_Personal
Private Sub CargaEstados(pCvePais As Integer) Private Sub CargaEstados(pCvePais As Integer)
DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais) DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstados.DataBind() DdlEstados.DataBind()
DdlEstadosDomicilio.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstadosDomicilio.DataBind()
End Sub End Sub
'Private Sub CargaSucursales() 'Private Sub CargaSucursales()
@@ -1607,6 +1609,8 @@ Partial Class RH_Personal
TxtColonia.Text = ObjPersonal.Colonia TxtColonia.Text = ObjPersonal.Colonia
'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString()) 'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString())
DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString()) DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString())
DdlEstadosDomicilio.SelectedValueExistInsert(drow("CveEstadoDomicilio").ToString(), drow("EstadoDomicilioText").ToString())
TxtCiudadOrigen.Text = drow("CiudadOrigen").ToString()
TxtCP.Text = ObjPersonal.CP TxtCP.Text = ObjPersonal.CP
TxtColonia.Text = ObjPersonal.Colonia TxtColonia.Text = ObjPersonal.Colonia
TxtCiudad.Text = ObjPersonal.Ciudad TxtCiudad.Text = ObjPersonal.Ciudad
@@ -2061,6 +2065,10 @@ Partial Class RH_Personal
If TieneError Then If TieneError Then
ObjPersonal.RollBack() ObjPersonal.RollBack()
Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia) Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
@@ -2068,6 +2076,9 @@ Partial Class RH_Personal
ObjPersonal.Commit() ObjPersonal.Commit()
Alert(Mensaje, TipoMensaje.MsgInformacion, Accion) Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero()) CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then 'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL ' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
@@ -2075,6 +2086,12 @@ Partial Class RH_Personal
GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
If CvePersonal > 0 Then If CvePersonal > 0 Then
Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ",
UsuarioActual.CveEmpresa, CvePersonal, DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text)
Using objbase As New ClsClaseBase
If (objbase.runQuerystr(strquery)) Then
End If
End Using
CargaDatos() CargaDatos()
End If End If
@@ -7481,27 +7498,98 @@ Partial Class RH_Personal
End Sub End Sub
Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs) Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs)
Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc" Dim RutaArchivo As String = "F:\Proyectos\wwwSIG\General\CONTRATO.doc"
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) Dim dSDTotal As Decimal = 0
Dim SDTotalText As String = ""
Dim SDTotal As String = ""
Dim SueldoDiario As String = ""
Dim septimodia As String = ""
Dim Aguinaldo As String = ""
Dim Vacaciones As String = ""
Dim Prima As String = ""
Dim vacacionesyprima As String = ""
Dim Utilidades As String = ""
Dim strquery As String = String.Format("EXEC PA_Agro_ValidacionNomGet @CveValidacionNomina=-1,@CveEmpresa ={0} ", UsuarioActual.CveEmpresa)
Using objbase As New ClsClaseBase
If (objbase.runQuerystr(strquery)) Then
Dim dbrow As DataRow
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =4")
If Not IsNothing(dbrow) Then
SueldoDiario = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =5")
If Not IsNothing(dbrow) Then
septimodia = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =6")
If Not IsNothing(dbrow) Then
Aguinaldo = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =8")
If Not IsNothing(dbrow) Then
vacacionesyprima = String.Format("{0:N2}", dbrow("Importe"))
Dim temptotal As Decimal = dbrow("Importe").ToString().ToDecimal()
Dim ObjRH As New ClsRH Vacaciones = String.Format("{0:N2}", temptotal / 1.5)
Prima = String.Format("{0:N2}", (temptotal / 1.5) * 0.5)
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =7")
If Not IsNothing(dbrow) Then
Utilidades = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
SDTotalText = Texto2Letras(dSDTotal.ToString().ToDouble())
SDTotal = String.Format("{0:N2}", dSDTotal)
End If
End Using
Dim Tags As New List(Of TagsDocumentos)
Dim ObjRH As New ClsRH()
If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
Dim Tags As New List(Of TagsDocumentos)
If ObjRH.CveSubProyecto.Contiene(11884, 11883) Then
RutaArchivo = "F:\Proyectos\wwwSIG\General\CONTRATOINVERNADERO.doc"
End If
Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto)) Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString())) Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text)) Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text)) Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text)) Tags.Add(New TagsDocumentos("{CiudadOrigen}", String.Format("{0},{1}", TxtCiudadOrigen.Text, DdlEstados.SelectedItem.Text).ToUpper()))
Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC)) Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC))
Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0},{1}", TxtCiudad.Text, DdlEstadosDomicilio.SelectedItem.Text).ToUpper()))
Tags.Add(New TagsDocumentos("{CALLE}", TxtCalle.Text))
Tags.Add(New TagsDocumentos("{NO}", TxtNumExt.Text))
Tags.Add(New TagsDocumentos("{COLONIA}", TxtColonia.Text))
Tags.Add(New TagsDocumentos("{CP}", TxtCP.Text))
Tags.Add(New TagsDocumentos("{SDTotalText}", SDTotalText))
Tags.Add(New TagsDocumentos("{SDTotal}", SDTotal))
Tags.Add(New TagsDocumentos("{SueldoDiario}", SueldoDiario))
Tags.Add(New TagsDocumentos("{septimodia}", septimodia))
Tags.Add(New TagsDocumentos("{Aguinaldo}", Aguinaldo))
Tags.Add(New TagsDocumentos("{Vacaciones}", Vacaciones))
Tags.Add(New TagsDocumentos("{Prima}", Prima))
Tags.Add(New TagsDocumentos("{vacacionesyprima}", vacacionesyprima))
Tags.Add(New TagsDocumentos("{Utilidades}", Utilidades))
Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso)))
objGemBoxDocument.SustituirTags(Tags)
End If End If
ObjRH.Dispose() ObjRH.Dispose()
@@ -7509,6 +7597,8 @@ Partial Class RH_Personal
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
objGemBoxDocument.SustituirTags(Tags)
objGemBoxDocument.GuardarStreamPDF() objGemBoxDocument.GuardarStreamPDF()