Cambios nominas e inventarios
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -2443,6 +2443,30 @@ Public Class ClsInventarios
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetInventarioFisicoContador(CveInventarioFisico As Integer, CveUsuario As Integer, CodigoBarras As String) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_InventarioFisicoContadorGET")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
|
||||
.Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch Ex1 As SqlException
|
||||
|
||||
Me.OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O"
|
||||
|
||||
@@ -39,7 +39,7 @@ Public Class ClsLeyendasFiscales
|
||||
Try
|
||||
SqlConexion.Open()
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
|
||||
End Try
|
||||
SqlAdapter = New SqlDataAdapter("PA_LeyendasFiscalesGet", SqlConexion)
|
||||
ConexionAdd()
|
||||
|
||||
@@ -41,7 +41,7 @@ Public Class ClsMetodosPagos
|
||||
Try
|
||||
SqlConexion.Open()
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
|
||||
End Try
|
||||
SqlAdapter = New SqlDataAdapter("", SqlConexion)
|
||||
ConexionAdd()
|
||||
|
||||
@@ -2086,19 +2086,25 @@ Public Class ClsRH
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer) As Boolean
|
||||
Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer, Optional CveSistema As Integer = -1, Optional Descripcion01 As String = "", Optional Descripcion02 As String = "", Optional strFInicioAplicacion As String = "", Optional strFFinAplicacion As String = "", Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
SqlDataAdapter("PA_RH_PersonalConceptosAddUpd")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
|
||||
.Add("@CveSistema", SqlDbType.Int).Value = CveSistema
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Importe", SqlDbType.Money).Value = Importe
|
||||
.Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
|
||||
.Add("@NoPagos", SqlDbType.Int).Value = NoPagos
|
||||
.Add("@SaldoIni", SqlDbType.Money).Value = SaldoIni
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Descripcion01", SqlDbType.VarChar).Value = Descripcion01
|
||||
.Add("@Descripcion02", SqlDbType.VarChar).Value = Descripcion02
|
||||
.Add("@strFInicioAplicacion", SqlDbType.VarChar).Value = strFInicioAplicacion
|
||||
.Add("@strFFinAplicacion", SqlDbType.VarChar).Value = strFFinAplicacion
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -244,6 +244,45 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpBuscar" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-3">
|
||||
<asp:Panel ID="Panel1" runat="server" DefaultButton="BtnBuscarCodVarras">
|
||||
<div class="portlet smmallpadding light bordered" id="Div2" runat="server">
|
||||
<div class="portlet-title">
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
<div class="caption uppercase" style="position: relative;">
|
||||
<i class="fa fa-info-circle"></i>Consultar Producto
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<div class="row" style="margin-top: 5px;">
|
||||
<label class="col-sm-4">Código.Barras</label>
|
||||
<div class="col-sm-4">
|
||||
<asp:TextBox runat="server" CssClass="form-control" ID="TxtConCodigoVarras"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-sm-4">
|
||||
<asp:Button ID="BtnBuscarCodVarras" OnClick="BtnBuscarCodVarras_Click" runat="server" Text="Consultar" class="btn btn-primary" Enabled="true" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="margin-top: 5px;">
|
||||
<%--<label class="col-sm-4 "> </label>--%>
|
||||
<div class="col-sm-12" style="text-align: center">
|
||||
<h4>
|
||||
<asp:Label ID="LblContador" CssClass="bold" runat="server" Text=""></asp:Label>
|
||||
</h4>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Panel>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -277,42 +277,44 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
|
||||
Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Dim Inventarios As New ClsInventarios
|
||||
End If
|
||||
|
||||
|
||||
Dim Consulto As Boolean = False
|
||||
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
|
||||
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
|
||||
Else
|
||||
Consulto = True
|
||||
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
|
||||
If Inventarios.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
Else
|
||||
GvIFDUltimoRegistrado.DataSource = Nothing
|
||||
End If
|
||||
Else
|
||||
Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
End If
|
||||
TxtCodigoBarras.Text = ""
|
||||
TxtCodigoSerie.Text = ""
|
||||
TxtCodigo.Text = ""
|
||||
TxtCantidadProducto.Text = "1"
|
||||
RegistraScript("playsonidito('beep-07.wav')")
|
||||
Else
|
||||
TxtCodigoSerie.Text = ""
|
||||
End If
|
||||
TxtCodigoBarras.Focus()
|
||||
Inventarios.Dispose()
|
||||
Using Inventarios As New ClsInventarios
|
||||
|
||||
If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
|
||||
If GvIFDUltimoRegistrado.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
|
||||
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
|
||||
Else
|
||||
Consulto = True
|
||||
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
|
||||
If Inventarios.DtResultados.Rows.Count > 0 Then
|
||||
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
|
||||
Else
|
||||
GvIFDUltimoRegistrado.DataSource = Nothing
|
||||
End If
|
||||
Else
|
||||
Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
End If
|
||||
TxtCodigoBarras.Text = ""
|
||||
TxtCodigoSerie.Text = ""
|
||||
TxtCodigo.Text = ""
|
||||
TxtCantidadProducto.Text = "1"
|
||||
RegistraScript("playsonidito('beep-07.wav')")
|
||||
Else
|
||||
TxtCodigoSerie.Text = ""
|
||||
End If
|
||||
TxtCodigoBarras.Focus()
|
||||
End Using
|
||||
|
||||
If Consulto Then GvIFDUltimoRegistrado.DataBind()
|
||||
Else
|
||||
TxtCodigoBarras.Text = ""
|
||||
@@ -469,4 +471,24 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs)
|
||||
Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''")
|
||||
LblContador.Text = "No se encontraron resultados"
|
||||
Using Inventarios As New ClsInventarios
|
||||
If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then
|
||||
'Cantidad,@CodigoBarras CodigoBarras
|
||||
If (Inventarios.DtResultados.Rows.Count > 0) Then
|
||||
Dim drow As DataRow = Inventarios.DtResultados.Rows(0)
|
||||
If (drow("Cantidad").ToString().ToDouble() > 0) Then
|
||||
LblContador.Text = String.Format("Contador={0:##,###.##}", drow("Cantidad"))
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Using
|
||||
UpBuscar.Update()
|
||||
' UsuarioActual.CveUsuario
|
||||
'
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1248,12 +1248,16 @@
|
||||
</div>
|
||||
|
||||
<div class="col-md-8">
|
||||
<div class="portlet light bordered xspadding">
|
||||
<div class="portlet light bordered xspadding" id="porletconceptos">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-user-following font-green"></i>
|
||||
<i class="fa fa-bookmark font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Conceptos</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:Button ID="BtnGuardarConceptos" runat="server" Text="Guardar Conceptos" class="btn btn-primary" />
|
||||
@@ -1261,7 +1265,9 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio" Width="550px" CssClass="table table-striped table-advance table-hover" Style="text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio"
|
||||
data-height="300"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Aplica</HeaderTemplate>
|
||||
@@ -1309,6 +1315,10 @@
|
||||
<asp:ListItem Text="Saldo" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="No. Pagos" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Permanente" Value="2600"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
|
||||
</asp:DropDownList></td>
|
||||
<td width="65px">
|
||||
<asp:Literal ID="LtlNoPago" runat="server" Text='<%# If(IsNumeric(Eval("NoPago")), Eval("NoPago").ToString + "/", "")%>' Visible="false"></asp:Literal>
|
||||
@@ -1331,6 +1341,85 @@
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="portlet light bordered xspadding" id="porletInfonavit">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-home font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Infonavit</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:Button ID="BtnGuardarInfornavit" OnClick="BtnGuardarInfornavit_Click" runat="server" Text="Guardar" class="btn btn-primary" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtInfoNumCredito" runat="server" MaxLength="20"></asp:TextBox>
|
||||
<asp:Label AssociatedControlID="TxtInfoNumCredito" runat="server" Text="Número de crédito"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtInfoDescripcion" runat="server" MaxLength="20"></asp:TextBox>
|
||||
<asp:Label AssociatedControlID="TxtInfoDescripcion" runat="server" Text="Descripción"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:Label AssociatedControlID="DdlInfoTipoAplicacion" runat="server" Text="Tipo Aplicación"></asp:Label>
|
||||
|
||||
<asp:DropDownList ID="DdlInfoTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" width="100%">
|
||||
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
|
||||
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtInfoValor" runat="server" MaxLength="20"></asp:TextBox>
|
||||
<asp:Label AssociatedControlID="TxtInfoValor" runat="server" Text="Valor"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtInfoFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
|
||||
<asp:Label AssociatedControlID="TxtInfoFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
|
||||
<asp:RequiredFieldValidator runat="server" ID="REQFechaF" ControlToValidate="TxtInfoFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFin" />
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtInfoFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CEEFechaF" TargetControlID="TxtInfoFechaInicio" PopupButtonID="ImgFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
</div>
|
||||
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:Label AssociatedControlID="ChkInfo" runat="server" Text="Estado (Activo)"></asp:Label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkInfo" CssClass="chksino" runat="server" Text =" " />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="portlet box blue-hoki" style="width: 100%;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption">
|
||||
|
||||
@@ -2036,6 +2036,17 @@ Partial Class RH_Personal
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||
GVConceptos.DataSource = ObjPersonal.DtResultados
|
||||
Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
|
||||
If Not IsNothing(frow) Then
|
||||
TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
|
||||
DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
|
||||
|
||||
Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
|
||||
TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
|
||||
TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
|
||||
TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
|
||||
ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
|
||||
End If
|
||||
Else
|
||||
GVConceptos.DataSource = Nothing
|
||||
End If
|
||||
@@ -2093,6 +2104,32 @@ Partial Class RH_Personal
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
|
||||
Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
|
||||
Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
|
||||
Dim NoPagos As Integer = 0
|
||||
Dim SaldoIni As Decimal = 0
|
||||
Dim descripcion02 As String = TxtInfoDescripcion.Text
|
||||
Dim descripcion01 As String = TxtInfoNumCredito.Text
|
||||
Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
|
||||
Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
|
||||
If fecha.Length > 8 Then
|
||||
fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
|
||||
Else
|
||||
fecha = ""
|
||||
End If
|
||||
Dim OcurrioError As Boolean = False
|
||||
Using ObjPersonal As New ClsRH
|
||||
|
||||
If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End Using
|
||||
If Not OcurrioError Then
|
||||
Alert("Se actualizo el calculo de infonavit")
|
||||
CarcaConceptosNomina()
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
|
||||
If CvePersonal > 0 Then
|
||||
Dim ObjPersonal As New ClsRH
|
||||
|
||||
Reference in New Issue
Block a user