Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
406
Nomina/Finiquito.aspx.vb
Normal file
406
Nomina/Finiquito.aspx.vb
Normal file
@@ -0,0 +1,406 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Nomina_Finiquito
|
||||
Inherits ClsPaginas
|
||||
Private Class ConceptosPersonal
|
||||
Public Sub New()
|
||||
Concepto = ""
|
||||
ConceptoD = ""
|
||||
CveConcepto = 0
|
||||
CveConceptoD = 0
|
||||
Estatus = 0
|
||||
Estatus = 0
|
||||
End Sub
|
||||
Public Property Concepto As String
|
||||
Public Property CveConcepto As Integer
|
||||
Public Property Importe As Decimal
|
||||
Public Property Estatus As Integer
|
||||
|
||||
Public Property ConceptoD As String
|
||||
Public Property CveConceptoD As Integer
|
||||
Public Property ImporteD As Decimal
|
||||
Public Property EstatusD As Integer
|
||||
End Class
|
||||
#Region "Propiedades"
|
||||
|
||||
Private Property CvePersonal As Integer
|
||||
Get
|
||||
If Not IsNothing(ViewState("CvePersonal")) Then
|
||||
Return ViewState("CvePersonal").ToString().ToEntero()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePersonal") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveTipoPeriodo As Integer
|
||||
Get
|
||||
If Not IsNothing(ViewState("CveTipoPeriodo")) Then
|
||||
Return ViewState("CveTipoPeriodo").ToString().ToEntero()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveTipoPeriodo") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CvePeriodoFiniquito As Integer
|
||||
Get
|
||||
If Not IsNothing(ViewState("CvePeriodoFiniquito")) Then
|
||||
Return ViewState("CvePeriodoFiniquito").ToString().ToEntero()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePeriodoFiniquito") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property GCEstatus As Integer
|
||||
Get
|
||||
If Not IsNothing(ViewState("GCEstatus")) Then
|
||||
Return ViewState("GCEstatus").ToString().ToEntero()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
ViewState("GCEstatus") = Value
|
||||
End Set
|
||||
End Property
|
||||
Private Property GCCveConcepto As Integer
|
||||
Get
|
||||
If Not IsNothing(ViewState("GCCveConcepto")) Then
|
||||
Return ViewState("GCCveConcepto").ToString().ToEntero()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
ViewState("GCCveConcepto") = Value
|
||||
End Set
|
||||
End Property
|
||||
Private Property GCImporte As Decimal
|
||||
Get
|
||||
If Not IsNothing(ViewState("GCImporte")) Then
|
||||
Return ViewState("GCImporte").ToString().ToDecimal()
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
ViewState("GCImporte") = Value
|
||||
End Set
|
||||
End Property
|
||||
Private ReadOnly Property ConceptsPersonas As List(Of ConceptosPersonal)
|
||||
Get
|
||||
Dim listaconceptos As New List(Of ConceptosPersonal)
|
||||
Dim TotalP As Decimal = 0
|
||||
Dim TotalD As Decimal = 0
|
||||
If (Not IsNothing(DTConceptosPersonal) AndAlso DTConceptosPersonal.Rows.Count > 0) Then
|
||||
Dim dtP As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=1")
|
||||
Dim dtD As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=2")
|
||||
Dim noP = dtP.Rows.Count()
|
||||
Dim noD = dtD.Rows.Count()
|
||||
Dim max = If(noP > noD, noP, noD)
|
||||
TotalP = dtP.SUM("Importe").ToString().ToDecimal()
|
||||
TotalD = dtD.SUM("Importe").ToString().ToDecimal()
|
||||
For index = 0 To max
|
||||
Dim obj As New ConceptosPersonal()
|
||||
If index < noP Then
|
||||
obj.Importe = dtP.Rows(index)("Importe").ToString().ToDecimal()
|
||||
obj.CveConcepto = dtP.Rows(index)("CveConcepto").ToString().ToEntero()
|
||||
obj.Concepto = dtP.Rows(index)("Concepto").ToString()
|
||||
obj.Estatus = dtP.Rows(index)("Estatus").ToString().ToEntero()
|
||||
ElseIf index = noP Then
|
||||
obj.Estatus = -1
|
||||
obj.Concepto = "Agregar"
|
||||
End If
|
||||
If index < noD Then
|
||||
obj.ImporteD = dtD.Rows(index)("Importe").ToString().ToDecimal()
|
||||
obj.CveConceptoD = dtD.Rows(index)("CveConcepto").ToString().ToEntero()
|
||||
obj.ConceptoD = dtD.Rows(index)("Concepto").ToString()
|
||||
obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero()
|
||||
ElseIf index = noD Then
|
||||
obj.EstatusD = -1
|
||||
obj.ConceptoD = "Agregar"
|
||||
End If
|
||||
listaconceptos.Add(obj)
|
||||
Next
|
||||
End If
|
||||
listaconceptos.Add(New ConceptosPersonal())
|
||||
|
||||
|
||||
Dim objST As New ConceptosPersonal()
|
||||
objST.Importe = TotalP
|
||||
objST.CveConcepto = 0
|
||||
objST.Concepto = "Total Percepciones"
|
||||
objST.Estatus = -2
|
||||
objST.ImporteD = TotalD
|
||||
objST.CveConceptoD = 0
|
||||
objST.ConceptoD = "Total Deducciones"
|
||||
objST.EstatusD = -2
|
||||
|
||||
listaconceptos.Add(objST)
|
||||
|
||||
Dim objT As New ConceptosPersonal()
|
||||
|
||||
objT.CveConcepto = 0
|
||||
objT.Concepto = ""
|
||||
objT.Estatus = -3
|
||||
objT.ImporteD = objST.Importe - objT.Importe
|
||||
objT.CveConceptoD = 0
|
||||
objT.ConceptoD = "Total"
|
||||
objT.EstatusD = -3
|
||||
listaconceptos.Add(objT)
|
||||
Return listaconceptos
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Property DTConceptosPersonal As DataTable
|
||||
Get
|
||||
If Not IsNothing(ViewState("DTConceptosPersonal")) Then
|
||||
Return DirectCast(ViewState("DTConceptosPersonal"), DataTable)
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
ViewState("DTConceptosPersonal") = Value
|
||||
End Set
|
||||
End Property
|
||||
Private Property DTConceptos As DataTable
|
||||
Get
|
||||
If Not IsNothing(ViewState("DTConceptos")) Then
|
||||
Return DirectCast(ViewState("DTConceptos"), DataTable)
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
ViewState("DTConceptos") = Value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CargaDdlPersonal()
|
||||
CargaMotivoBaja()
|
||||
CvePeriodoFiniquito = 0
|
||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
|
||||
ViewState("CvePersonal") = Request("CvePersonal")
|
||||
Else
|
||||
CvePersonal = -1
|
||||
End If
|
||||
If Not CargaDatosFiniquito() Then
|
||||
RegistraScript("$('#ModalEmpleados').modal();")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If CvePersonal > 0 And CvePeriodoFiniquito > 0 Then
|
||||
LtlEmpleadoCancelar.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivoBaja()
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaDdlPersonal()
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
|
||||
DdlPersonal.DataSource = ObjPersonal.DtResultados
|
||||
DdlPersonal.DataBind()
|
||||
End If
|
||||
ObjPersonal.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Function CargaDatosFiniquito() As Boolean
|
||||
Dim retorno As Boolean = True
|
||||
If CvePersonal > 0 Then
|
||||
DdlPersonal.SelectedValueExist(CvePersonal.ToString())
|
||||
Dim Nombre As String = ""
|
||||
Dim FechaBaja As String = ""
|
||||
Dim MotivoBaja As String = ""
|
||||
Dim EstatusPersonal As String = ""
|
||||
CvePeriodoFiniquito = 0
|
||||
CveTipoPeriodo = 0
|
||||
pnlupValoresFiniquito.Visible = False
|
||||
Dim ObjPersonal As New ClsRH
|
||||
If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
|
||||
Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
|
||||
FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
|
||||
MotivoBaja = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("MotivoBaja"))
|
||||
EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal"))
|
||||
CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero()
|
||||
CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero()
|
||||
End If
|
||||
ObjPersonal.Dispose()
|
||||
|
||||
HypEmpleado.Text = Nombre
|
||||
HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal)
|
||||
LblFechaBaja.Text = FechaBaja
|
||||
LblMotivoBaja.Text = MotivoBaja
|
||||
LblEstatus.Text = EstatusPersonal
|
||||
TxtFechaBaja.Text = FechaBaja
|
||||
If CvePeriodoFiniquito <= 0 Then
|
||||
DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
|
||||
retorno = False
|
||||
pnlupValoresFiniquito.Visible = True
|
||||
End If
|
||||
Dim ObjNom As New ClsNominas
|
||||
If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||
DTConceptosPersonal = ObjNom.DtResultados
|
||||
End If
|
||||
ObjNom.Dispose()
|
||||
GvConceptos.DataSource = ConceptsPersonas
|
||||
GvConceptos.DataBind()
|
||||
Else
|
||||
retorno = False
|
||||
End If
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
|
||||
Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs)
|
||||
CvePersonal = DdlPersonal.SelectedValue.ToEntero()
|
||||
If pnlupValoresFiniquito.Visible Then
|
||||
|
||||
End If
|
||||
If Not CargaDatosFiniquito() Then
|
||||
|
||||
RegistraScript("$('#ModalEmpleados').modal('hide');")
|
||||
End If
|
||||
upDatos.Update()
|
||||
End Sub
|
||||
Protected Sub LnkCalcular_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Sub LnkTimbrar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Sub LnkFormatoRenuncia_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo)
|
||||
Dim fechabaja As String = TxtFechaBaja.Text
|
||||
Dim dtperiodos As New DataTable
|
||||
Dim ObjPeriodos As New ClsNominas
|
||||
If ObjPeriodos.GetPeriodos(CveTipoPeriodoactual, UsuarioActual.CveEmpresa, -1, -1, -1) Then
|
||||
dtperiodos = ObjPeriodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4)")
|
||||
'FechaInicio, P.FechaFin
|
||||
|
||||
DdlPeriodo.DataSource = dtperiodos
|
||||
Else
|
||||
DdlPeriodo.DataSource = Nothing
|
||||
End If
|
||||
ObjPeriodos.Dispose()
|
||||
DdlPeriodo.DataBind()
|
||||
If fechabaja.Length > 0 AndAlso dtperiodos.Rows.Count > 0 Then
|
||||
Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("FechaInicio<='{0:yyyy/MM/dd}' AND FechaFin>='{0:yyyy/MM/dd}'", fechabaja.ToDate()))
|
||||
If Not IsNothing(row) Then
|
||||
DdlPeriodo.SelectedValueExist(row("CvePeriodo"))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "Conceptos"
|
||||
Protected Sub GvConceptos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
'Datakeys
|
||||
'Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
|
||||
Dim CveConcepto As Integer = e.Row.DataKey("CveConcepto").ToEntero()
|
||||
Dim CveConceptoD As Integer = e.Row.DataKey("CveConceptoD").ToEntero()
|
||||
'Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
|
||||
'Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
|
||||
Dim Estatus As Integer = e.Row.DataKey("Estatus").ToEntero()
|
||||
Dim EstatusD As Integer = e.Row.DataKey("EstatusD").ToEntero()
|
||||
|
||||
'Controles
|
||||
Dim LtlConcepto As Label = e.Row.FCLabel("LtlConcepto")
|
||||
Dim LnkConcepto As LinkButton = e.Row.FCLinkButton("LnkConcepto")
|
||||
Dim LtlConceptoD As Label = e.Row.FCLabel("LtlConceptoD")
|
||||
Dim LnkConceptoD As LinkButton = e.Row.FCLinkButton("LnkConceptod")
|
||||
Dim LtlImporte As Label = e.Row.FCLabel("LtlImporte")
|
||||
Dim LnkImporte As LinkButton = e.Row.FCLinkButton("LnkImporte")
|
||||
Dim LtlImporteD As Label = e.Row.FCLabel("LtlImporteD")
|
||||
Dim LnkImporteD As LinkButton = e.Row.FCLinkButton("LnkImporteD")
|
||||
|
||||
If Estatus < -1 Or EstatusD < -1 Then
|
||||
e.Row.CssClass = "ConceptosTotales"
|
||||
End If
|
||||
If CveConcepto = 0 AndAlso (Estatus = 0 OrElse Estatus = -1 OrElse Estatus = -3) Then
|
||||
LtlImporte.Text = ""
|
||||
End If
|
||||
|
||||
If CveConceptoD = 0 AndAlso (EstatusD = 0 OrElse EstatusD = -1) Then
|
||||
LtlImporteD.Text = ""
|
||||
End If
|
||||
|
||||
If Estatus = -1 Then
|
||||
LtlConcepto.Visible = False
|
||||
ElseIf Estatus > 0 Then
|
||||
LtlImporte.Visible = False
|
||||
End If
|
||||
|
||||
If EstatusD = -1 Then
|
||||
LtlConceptoD.Visible = False
|
||||
ElseIf EstatusD > 0 Then
|
||||
LtlImporteD.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
LnkConcepto.Visible = Not LtlConcepto.Visible
|
||||
LnkConceptoD.Visible = Not LtlConceptoD.Visible
|
||||
LnkImporte.Visible = Not LtlImporte.Visible
|
||||
LnkImporteD.Visible = Not LtlImporteD.Visible
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs)
|
||||
Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
GCEstatus = gvRow.DataKey("Estatus").ToEntero()
|
||||
GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero()
|
||||
GCImporte = gvRow.DataKey("Importe").ToDecimal()
|
||||
OpenModalConceptos(1)
|
||||
End Sub
|
||||
Protected Sub LnkConceptoD_Click(sender As Object, e As EventArgs)
|
||||
Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
GCEstatus = gvRow.DataKey("Estatus").ToEntero()
|
||||
GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero()
|
||||
GCImporte = gvRow.DataKey("Importe").ToDecimal()
|
||||
OpenModalConceptos(2)
|
||||
End Sub
|
||||
|
||||
Private Sub OpenModalConceptos(Tipo As Integer)
|
||||
If GCEstatus = -1 Then
|
||||
Else
|
||||
|
||||
End If
|
||||
RegistraScript("$('#ModalConceptos').modal();")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAceptarConceptos_Click(sender As Object, e As EventArgs)
|
||||
|
||||
RegistraScript("$('#ModalConceptos').modal('hide');")
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
Reference in New Issue
Block a user