Nomina/Finiquito.aspx.vb

@@ -3,7 +3,7 @@
 Imports System.Data
 Imports Extensiones
 
-Partial Class Nomina_Finiquito
+Partial Class Nomina_FiniquitoVB
     Inherits ClsPaginas
     Private Class ConceptosPersonal
         Public Sub New()
@@ -215,8 +215,8 @@ Partial Class Nomina_Finiquito
                 CvePersonal = -1
             End If
             If Not CargaDatosFiniquito() Then
-                RegistraScript("$('#ModalEmpleados').modal();")
             End If
+            RegistraScript("$('#ModalEmpleados').modal();")
 
         End If
 
@@ -264,7 +264,7 @@ Partial Class Nomina_Finiquito
                     DdlMotivoBaja.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveMotivoBaja").ToString().ToEntero())
                     Dim stringesliquidacion = ObjPersonal.DtResultados.Rows(0)("esLiquidacion").ToString()
                     esLiquidacion = (stringesliquidacion = "True" OrElse stringesliquidacion = "1")
-
+                    ChkesLiquidacion.Checked = esLiquidacion
                 End If
             End Using
             If DdlMotivoBaja.SelectedValue.ToEntero() > 0 Then
@@ -277,11 +277,12 @@ Partial Class Nomina_Finiquito
             LblFechaBaja.Text = FechaBaja
             LblEstatus.Text = EstatusPersonal
             TxtFechaBaja.Text = FechaBaja
+            DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
+            LblPerido.Text = DdlPeriodo.SelectedItem.Text
             If CvePeriodoFiniquito <= 0 Then
-                DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
                 retorno = False
-                pnlupValoresFiniquito.Visible = True
             End If
+            pnlupValoresFiniquito.Visible = True
             Using ObjNom As New ClsNominas()
                 'If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
                 '    DTConceptosPersonal = ObjNom.DtResultados
@@ -342,10 +343,20 @@ Partial Class Nomina_Finiquito
         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)")
+        If ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1) Then
+            dtperiodos = ObjPeriodos.DtResultados
+            If IsNothing(sender) AndAlso CvePeriodoFiniquito > 0 Then
+                Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("CvePeriodo={0}  ", CvePeriodoFiniquito))
+                If Not IsNothing(row) Then
+                    CveTipoPeriodoactual = row("CveTipoPeriodo").ToString().ToEntero()
+                    DdlTipoPeriodo.SelectedValueExist(If(CveTipoPeriodoactual = 6, "6", "-1"))
+                End If
+            End If
+            dtperiodos = ObjPeriodos.DtResultados.FiltraParametros(String.Format("(Estatus IN (1,2,3,4) AND CveTipoPeriodo={0})  ", CveTipoPeriodoactual))
             'FechaInicio, P.FechaFin
-
+            DdlPeriodo.Items.Clear()
+            DdlPeriodo.Items.Add(New ListItem("Seleccione", "-1"))
+            DdlPeriodo.SelectedValue = "-1"
             DdlPeriodo.DataSource = dtperiodos
         Else
             DdlPeriodo.DataSource = Nothing
@@ -353,10 +364,15 @@ Partial Class Nomina_Finiquito
         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"))
+            If (CvePeriodoFiniquito > 0) AndAlso IsNothing(sender) Then
+                DdlPeriodo.SelectedValueExist(CvePeriodoFiniquito)
+            Else
+                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 If
     End Sub