Checador correcion dia de decanso y se agrega codigo de empleado
This commit is contained in:
rakcsle
@@ -91,7 +91,6 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" Enabled="false" class="btn btn-primary" OnClick="BtnConsultar_Click" />
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" Enabled="false" class="btn btn-primary" OnClick="BtnConsultar_Click" />
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -106,9 +105,9 @@
|
|||||||
<asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
|
<asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
|
||||||
CssClass="ADSCROLLER2 table table-striped table-advance table-hover Widthall" data-rows="1" data-cols="3" data-heightmenos="100" data-heightfijo="600" Style="text-align: center;" GridLines="None">
|
CssClass="ADSCROLLER2 table table-striped table-advance table-hover Widthall" data-rows="1" data-cols="3" data-heightmenos="100" data-heightfijo="600" Style="text-align: center;" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField HeaderText="Numero" ItemStyle-HorizontalAlign="Left" >
|
<asp:TemplateField HeaderText="Codigo" ItemStyle-HorizontalAlign="Left" >
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="LtlNumero" runat="server" CssClass="truncate" Width="50" Text='<%# Eval("CvePersonal") %>'> </asp:Label>
|
<asp:Label ID="LtlNumero" runat="server" CssClass="truncate" Width="50" Text='<%# Eval("Codigo") %>'> </asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Personal" ItemStyle-HorizontalAlign="Left">
|
<asp:TemplateField HeaderText="Personal" ItemStyle-HorizontalAlign="Left">
|
||||||
|
|||||||
@@ -327,7 +327,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
|
|
||||||
Resultados.Columns.Add("CvePersonal")
|
Resultados.Columns.Add("CvePersonal")
|
||||||
Resultados.Columns.Add("NombreCompleto")
|
Resultados.Columns.Add("NombreCompleto")
|
||||||
'Resultados.Columns.Add("Codigo")
|
Resultados.Columns.Add("Codigo")
|
||||||
Resultados.Columns.Add("CveSubProyecto")
|
Resultados.Columns.Add("CveSubProyecto")
|
||||||
Resultados.Columns.Add("SalarioDiario")
|
Resultados.Columns.Add("SalarioDiario")
|
||||||
Resultados.Columns.Add("CveAsistenciasInasistencias")
|
Resultados.Columns.Add("CveAsistenciasInasistencias")
|
||||||
@@ -349,7 +349,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Resultados.Columns.Add("TipoCorto")
|
Resultados.Columns.Add("TipoCorto")
|
||||||
Resultados.Columns.Add("Sancion")
|
Resultados.Columns.Add("Sancion")
|
||||||
|
|
||||||
If DdlTurno.SelectedValue.ToEntero > 0 And DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then
|
If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then
|
||||||
|
|
||||||
Dim FiltroSubProyecto As String = ""
|
Dim FiltroSubProyecto As String = ""
|
||||||
Dim filtroturno = If(DdlTurno.SelectedValue = "-1", "", $"AND CveTurno = { DdlTurno.SelectedValue}")
|
Dim filtroturno = If(DdlTurno.SelectedValue = "-1", "", $"AND CveTurno = { DdlTurno.SelectedValue}")
|
||||||
@@ -422,6 +422,10 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim ContadorFaltas As Integer = 0
|
Dim ContadorFaltas As Integer = 0
|
||||||
Dim registrosPersonal As DataTable = DTChecadorRegistros.FiltraParametros(" CvePersonal = " & dRow(0).ToString())
|
Dim registrosPersonal As DataTable = DTChecadorRegistros.FiltraParametros(" CvePersonal = " & dRow(0).ToString())
|
||||||
|
|
||||||
|
Dim CveTurno As Integer = dRow("CveTurno").ToString.ToEntero
|
||||||
|
Dim DiaDescanso As Integer = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DiaDescanso", $" CveTurno = {CveTurno} ").ToEntero - 1 'El -1 es por que en .net el domingo empieza 0 y en la sql en 1
|
||||||
|
Dim Codigo As String = dRow("Codigo").ToString
|
||||||
|
|
||||||
If registrosPersonal.Rows.Count > 0 Then
|
If registrosPersonal.Rows.Count > 0 Then
|
||||||
DTHorarioPersonal = DTHorarios.FiltraParametros(" CveChecadorHorario = " & registrosPersonal(0)("CveHorario").ToString() & "")
|
DTHorarioPersonal = DTHorarios.FiltraParametros(" CveChecadorHorario = " & registrosPersonal(0)("CveHorario").ToString() & "")
|
||||||
Retardos = 0
|
Retardos = 0
|
||||||
@@ -431,7 +435,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim ReRow As DataRow = Resultados.NewRow
|
Dim ReRow As DataRow = Resultados.NewRow
|
||||||
ReRow("CvePersonal") = dRow(0).ToString()
|
ReRow("CvePersonal") = dRow(0).ToString()
|
||||||
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
||||||
'ReRow("Codigo") = dRow("Codigo").ToString()
|
ReRow("Codigo") = Codigo
|
||||||
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
||||||
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
||||||
ReRow("CveAsistenciasInasistencias") = "-1"
|
ReRow("CveAsistenciasInasistencias") = "-1"
|
||||||
@@ -458,7 +462,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim diaSemana As Integer = Fecha.DayOfWeek
|
Dim diaSemana As Integer = Fecha.DayOfWeek
|
||||||
Dim Asistencia As Boolean = True
|
Dim Asistencia As Boolean = True
|
||||||
|
|
||||||
Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal)
|
Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso)
|
||||||
Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString())
|
Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString())
|
||||||
|
|
||||||
Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString())
|
Dim HorarioEntrada As TimeSpan = TimeSpan.Parse(Horario(0)(1).ToString())
|
||||||
@@ -615,7 +619,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
|
|
||||||
ReRow("CvePersonal") = dRow(0).ToString()
|
ReRow("CvePersonal") = dRow(0).ToString()
|
||||||
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
||||||
'ReRow("Codigo") = dRow("Codigo").ToString()
|
ReRow("Codigo") = Codigo
|
||||||
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
||||||
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
||||||
|
|
||||||
@@ -651,7 +655,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
|
ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal)
|
Dim Horario As DataTable = HorarioDiario(Fecha, DTHorarioPersonal, DiaDescanso)
|
||||||
Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString())
|
Dim DiaLaboral As Boolean = Boolean.Parse(Horario(0)(0).ToString())
|
||||||
|
|
||||||
If Not DiaLaboral Then
|
If Not DiaLaboral Then
|
||||||
@@ -705,6 +709,8 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim ContadorFaltas As Integer = 0
|
Dim ContadorFaltas As Integer = 0
|
||||||
Dim registrosPersonal As DataTable = DTAsistenciasInasistenciasReg.FiltraParametros(" CvePersonal = " & dRow(0).ToString())
|
Dim registrosPersonal As DataTable = DTAsistenciasInasistenciasReg.FiltraParametros(" CvePersonal = " & dRow(0).ToString())
|
||||||
|
|
||||||
|
|
||||||
|
Dim Codigo As String = dRow("Codigo").ToString
|
||||||
If registrosPersonal.Rows.Count > 0 Then
|
If registrosPersonal.Rows.Count > 0 Then
|
||||||
|
|
||||||
For x As Integer = 1 To (DiasPeriodo)
|
For x As Integer = 1 To (DiasPeriodo)
|
||||||
@@ -712,7 +718,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim ReRow As DataRow = Resultados.NewRow
|
Dim ReRow As DataRow = Resultados.NewRow
|
||||||
ReRow("CvePersonal") = dRow(0).ToString()
|
ReRow("CvePersonal") = dRow(0).ToString()
|
||||||
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
||||||
'ReRow("Codigo") = dRow("Codigo").ToString()
|
ReRow("Codigo") = Codigo
|
||||||
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
||||||
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
||||||
|
|
||||||
@@ -765,7 +771,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
ReRow("NombreCompleto") = dRow("NombreCompleto").ToString()
|
||||||
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
ReRow("CveSubProyecto") = dRow("CveSubProyecto").ToString()
|
||||||
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
ReRow("SalarioDiario") = dRow("SalarioDiario").ToString()
|
||||||
'ReRow("Codigo") = dRow("Codigo").ToString()
|
ReRow("Codigo") = Codigo
|
||||||
ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
|
ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta
|
||||||
ReRow("PorcentajePago") = "0"
|
ReRow("PorcentajePago") = "0"
|
||||||
ReRow("Asistio") = "False"
|
ReRow("Asistio") = "False"
|
||||||
@@ -802,8 +808,8 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
DtResultados = Resultados
|
DtResultados = Resultados
|
||||||
|
|
||||||
dt.Columns.Add("CvePersonal")
|
dt.Columns.Add("CvePersonal")
|
||||||
|
dt.Columns.Add("Codigo")
|
||||||
dt.Columns.Add("NombreCompleto")
|
dt.Columns.Add("NombreCompleto")
|
||||||
'dt.Columns.Add("Codigo")
|
|
||||||
dt.Columns.Add("Fecha1")
|
dt.Columns.Add("Fecha1")
|
||||||
dt.Columns.Add("Fecha2")
|
dt.Columns.Add("Fecha2")
|
||||||
dt.Columns.Add("Fecha3")
|
dt.Columns.Add("Fecha3")
|
||||||
@@ -836,6 +842,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
dt.Columns.Add("Fecha30")
|
dt.Columns.Add("Fecha30")
|
||||||
dt.Columns.Add("Fecha31")
|
dt.Columns.Add("Fecha31")
|
||||||
|
|
||||||
|
|
||||||
Dim DTFechas As DataTable
|
Dim DTFechas As DataTable
|
||||||
Dim DTUPersonal As DataTable
|
Dim DTUPersonal As DataTable
|
||||||
|
|
||||||
@@ -845,7 +852,7 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
|
|
||||||
Dim ColumN As Integer = (dt.Columns.Count) - 2
|
Dim ColumN As Integer = (dt.Columns.Count) - 2
|
||||||
|
|
||||||
For x As Integer = 3 To dt.Columns.Count
|
For x As Integer = 3 To dt.Columns.Count-1
|
||||||
GVRegDatos.Columns(x).HeaderText = ""
|
GVRegDatos.Columns(x).HeaderText = ""
|
||||||
GVRegDatos.Columns(x).Visible = False
|
GVRegDatos.Columns(x).Visible = False
|
||||||
Next
|
Next
|
||||||
@@ -866,9 +873,9 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
Dim RRow As DataRow = dt.NewRow
|
Dim RRow As DataRow = dt.NewRow
|
||||||
RRow("CvePersonal") = pRow("CvePersonal")
|
RRow("CvePersonal") = pRow("CvePersonal")
|
||||||
RRow("NombreCompleto") = pRow("NombreCompleto")
|
RRow("NombreCompleto") = pRow("NombreCompleto")
|
||||||
'RRow("Codigo") = pRow("Codigo")
|
RRow("Codigo") = pRow("Codigo")
|
||||||
|
|
||||||
ColumN = 2
|
ColumN = 3
|
||||||
|
|
||||||
Dim ResumenDia As New DataTable
|
Dim ResumenDia As New DataTable
|
||||||
Dim DTTempAsistencias As New DataTable
|
Dim DTTempAsistencias As New DataTable
|
||||||
@@ -970,170 +977,219 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ReprocesarTabla()
|
Private Sub ReprocesarTabla()
|
||||||
Dim dt As New DataTable
|
|
||||||
Dim DtPersonal As New DataTable
|
|
||||||
Dim DTAsistenciasInasistencias As New DataTable
|
|
||||||
|
|
||||||
|
|
||||||
Dim objRH As New ClsRH
|
|
||||||
|
|
||||||
|
If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then
|
||||||
|
|
||||||
If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then
|
Dim dt As New DataTable
|
||||||
DTAsistenciasInasistencias = objRH.DtResultados
|
Dim DtPersonal As New DataTable
|
||||||
End If
|
Dim DTAsistenciasInasistencias As New DataTable
|
||||||
|
|
||||||
DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND CveEstado = 1 " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}"))
|
Dim objRH As New ClsRH
|
||||||
dt.Columns.Add("CvePersonal")
|
|
||||||
dt.Columns.Add("NombreCompleto")
|
|
||||||
'dt.Columns.Add("Codigo")
|
|
||||||
dt.Columns.Add("Fecha1")
|
|
||||||
dt.Columns.Add("Fecha2")
|
|
||||||
dt.Columns.Add("Fecha3")
|
|
||||||
dt.Columns.Add("Fecha4")
|
|
||||||
dt.Columns.Add("Fecha5")
|
|
||||||
dt.Columns.Add("Fecha6")
|
|
||||||
dt.Columns.Add("Fecha7")
|
|
||||||
dt.Columns.Add("Fecha8")
|
|
||||||
dt.Columns.Add("Fecha9")
|
|
||||||
dt.Columns.Add("Fecha10")
|
|
||||||
dt.Columns.Add("Fecha11")
|
|
||||||
dt.Columns.Add("Fecha12")
|
|
||||||
dt.Columns.Add("Fecha13")
|
|
||||||
dt.Columns.Add("Fecha14")
|
|
||||||
dt.Columns.Add("Fecha15")
|
|
||||||
dt.Columns.Add("Fecha16")
|
|
||||||
dt.Columns.Add("Fecha17")
|
|
||||||
dt.Columns.Add("Fecha18")
|
|
||||||
dt.Columns.Add("Fecha19")
|
|
||||||
dt.Columns.Add("Fecha20")
|
|
||||||
dt.Columns.Add("Fecha21")
|
|
||||||
dt.Columns.Add("Fecha22")
|
|
||||||
dt.Columns.Add("Fecha23")
|
|
||||||
dt.Columns.Add("Fecha24")
|
|
||||||
dt.Columns.Add("Fecha25")
|
|
||||||
dt.Columns.Add("Fecha26")
|
|
||||||
dt.Columns.Add("Fecha27")
|
|
||||||
dt.Columns.Add("Fecha28")
|
|
||||||
dt.Columns.Add("Fecha29")
|
|
||||||
dt.Columns.Add("Fecha30")
|
|
||||||
dt.Columns.Add("Fecha31")
|
|
||||||
|
|
||||||
Dim DTFechas As DataTable
|
If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then
|
||||||
Dim DTUPersonal As DataTable
|
DTAsistenciasInasistencias = objRH.DtResultados
|
||||||
Dim DTVFechas As New DataView(DtResultados)
|
End If
|
||||||
DTFechas = DTVFechas.ToTable(True, "Fecha")
|
|
||||||
DTUPersonal = DTVFechas.ToTable(True, {"CvePersonal", "NombreCompleto"})
|
|
||||||
|
|
||||||
Dim ColumN As Integer = (dt.Columns.Count) - 2
|
DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND CveEstado = 1 " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}"))
|
||||||
|
|
||||||
For x As Integer = 3 To ColumN - 1
|
dt.Columns.Add("CvePersonal")
|
||||||
GVRegDatos.Columns(x).HeaderText = ""
|
dt.Columns.Add("NombreCompleto")
|
||||||
GVRegDatos.Columns(x).Visible = False
|
'dt.Columns.Add("Codigo")
|
||||||
Next
|
dt.Columns.Add("Fecha1")
|
||||||
|
dt.Columns.Add("Fecha2")
|
||||||
|
dt.Columns.Add("Fecha3")
|
||||||
|
dt.Columns.Add("Fecha4")
|
||||||
|
dt.Columns.Add("Fecha5")
|
||||||
|
dt.Columns.Add("Fecha6")
|
||||||
|
dt.Columns.Add("Fecha7")
|
||||||
|
dt.Columns.Add("Fecha8")
|
||||||
|
dt.Columns.Add("Fecha9")
|
||||||
|
dt.Columns.Add("Fecha10")
|
||||||
|
dt.Columns.Add("Fecha11")
|
||||||
|
dt.Columns.Add("Fecha12")
|
||||||
|
dt.Columns.Add("Fecha13")
|
||||||
|
dt.Columns.Add("Fecha14")
|
||||||
|
dt.Columns.Add("Fecha15")
|
||||||
|
dt.Columns.Add("Fecha16")
|
||||||
|
dt.Columns.Add("Fecha17")
|
||||||
|
dt.Columns.Add("Fecha18")
|
||||||
|
dt.Columns.Add("Fecha19")
|
||||||
|
dt.Columns.Add("Fecha20")
|
||||||
|
dt.Columns.Add("Fecha21")
|
||||||
|
dt.Columns.Add("Fecha22")
|
||||||
|
dt.Columns.Add("Fecha23")
|
||||||
|
dt.Columns.Add("Fecha24")
|
||||||
|
dt.Columns.Add("Fecha25")
|
||||||
|
dt.Columns.Add("Fecha26")
|
||||||
|
dt.Columns.Add("Fecha27")
|
||||||
|
dt.Columns.Add("Fecha28")
|
||||||
|
dt.Columns.Add("Fecha29")
|
||||||
|
dt.Columns.Add("Fecha30")
|
||||||
|
dt.Columns.Add("Fecha31")
|
||||||
|
|
||||||
ColumN = 3
|
Dim DTFechas As DataTable
|
||||||
For Each drow As DataRow In DTFechas.Rows
|
Dim DTUPersonal As DataTable
|
||||||
GVRegDatos.Columns(ColumN).HeaderText = String.Format("<div class='Widthall' style='text-align:center;font-size:11px!important'>{1}</div><div class='Widthall' style='text-align:center'> {0} </div>", drow(0).ToString().ToDate.ToString("dd/MM/yyyy"), ObtenerDiaSemana(drow(0).ToString().ToDate))
|
Dim DTVFechas As New DataView(DtResultados)
|
||||||
GVRegDatos.Columns(ColumN).Visible = True
|
DTFechas = DTVFechas.ToTable(True, "Fecha")
|
||||||
ColumN = ColumN + 1
|
DTUPersonal = DTVFechas.ToTable(True, {"CvePersonal", "NombreCompleto"})
|
||||||
Next
|
|
||||||
|
|
||||||
For Each pRow As DataRow In DtPersonal.Rows
|
Dim ColumN As Integer = (dt.Columns.Count) - 2
|
||||||
|
|
||||||
Dim RRow As DataRow = dt.NewRow
|
For x As Integer = 3 To ColumN - 1
|
||||||
RRow("CvePersonal") = pRow("CvePersonal")
|
GVRegDatos.Columns(x).HeaderText = ""
|
||||||
RRow("NombreCompleto") = pRow("NombreCompleto")
|
GVRegDatos.Columns(x).Visible = False
|
||||||
'RRow("Codigo") = pRow("Codigo")
|
Next
|
||||||
|
|
||||||
ColumN = 2
|
ColumN = 3
|
||||||
For Each drow As DataRow In DTFechas.Rows
|
For Each drow As DataRow In DTFechas.Rows
|
||||||
|
GVRegDatos.Columns(ColumN).HeaderText = String.Format("<div class='Widthall' style='text-align:center;font-size:11px!important'>{1}</div><div class='Widthall' style='text-align:center'> {0} </div>", drow(0).ToString().ToDate.ToString("dd/MM/yyyy"), ObtenerDiaSemana(drow(0).ToString().ToDate))
|
||||||
|
GVRegDatos.Columns(ColumN).Visible = True
|
||||||
|
ColumN = ColumN + 1
|
||||||
|
Next
|
||||||
|
|
||||||
Dim filtro As String = " CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' "
|
For Each pRow As DataRow In DtPersonal.Rows
|
||||||
Dim ResumenDia As DataTable = DtResultados.FiltraParametros(" CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' ")
|
|
||||||
|
|
||||||
Dim DTTempAsistencias As DataTable = DTAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' ")
|
Dim RRow As DataRow = dt.NewRow
|
||||||
Dim TipoCorto As String = ""
|
RRow("CvePersonal") = pRow("CvePersonal")
|
||||||
|
RRow("NombreCompleto") = pRow("NombreCompleto")
|
||||||
|
'RRow("Codigo") = pRow("Codigo")
|
||||||
|
|
||||||
If DTTempAsistencias.Rows.Count > 1 Then
|
ColumN = 2
|
||||||
TipoCorto = DTTempAsistencias(0)("TipoCorto").ToString()
|
For Each drow As DataRow In DTFechas.Rows
|
||||||
End If
|
|
||||||
|
|
||||||
If TipoCorto <> "" Then
|
Dim filtro As String = " CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' "
|
||||||
|
Dim ResumenDia As DataTable = DtResultados.FiltraParametros(" CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' ")
|
||||||
|
|
||||||
If TipoCorto = "F" Then
|
Dim DTTempAsistencias As DataTable = DTAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & pRow("CvePersonal").ToString() & " AND Fecha ='" & drow(0).ToString() & "' ")
|
||||||
RRow(ColumN) = "F" & "|" & filtro
|
Dim TipoCorto As String = ""
|
||||||
|
|
||||||
|
If DTTempAsistencias.Rows.Count > 1 Then
|
||||||
|
TipoCorto = DTTempAsistencias(0)("TipoCorto").ToString()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If TipoCorto = "R" Then
|
If TipoCorto <> "" Then
|
||||||
RRow(ColumN) = "R" & "|" & filtro
|
|
||||||
Else
|
If TipoCorto = "F" Then
|
||||||
If TipoCorto = "A" Then
|
RRow(ColumN) = "F" & "|" & filtro
|
||||||
RRow(ColumN) = "A" & "|" & filtro
|
End If
|
||||||
|
|
||||||
|
If TipoCorto = "R" Then
|
||||||
|
RRow(ColumN) = "R" & "|" & filtro
|
||||||
Else
|
Else
|
||||||
If TipoCorto = "D" Then
|
If TipoCorto = "A" Then
|
||||||
RRow(ColumN) = "D" & "|" & filtro
|
RRow(ColumN) = "A" & "|" & filtro
|
||||||
Else
|
Else
|
||||||
|
If TipoCorto = "D" Then
|
||||||
If TipoCorto = "V" Then
|
RRow(ColumN) = "D" & "|" & filtro
|
||||||
RRow(ColumN) = "V" & "|" & filtro
|
|
||||||
Else
|
Else
|
||||||
If TipoCorto = "I" Then
|
|
||||||
RRow(ColumN) = "I" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If TipoCorto = "S" Then
|
|
||||||
RRow(ColumN) = "S" & "|" & filtro
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
If TipoCorto = "V" Then
|
||||||
|
RRow(ColumN) = "V" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If TipoCorto = "I" Then
|
||||||
|
RRow(ColumN) = "I" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If TipoCorto = "S" Then
|
||||||
|
RRow(ColumN) = "S" & "|" & filtro
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
RRow(ColumN) = "-"
|
RRow(ColumN) = "-"
|
||||||
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "" Then
|
If ResumenDia(0)("TipoCorto").ToString() = "" Then
|
||||||
|
|
||||||
If ResumenDia(0)("Asistio").ToString() = "True" Then
|
If ResumenDia(0)("Asistio").ToString() = "True" Then
|
||||||
RRow(ColumN) = "A|" & filtro
|
RRow(ColumN) = "A|" & filtro
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ResumenDia(0)("DiaVacacion").ToString() = "True" Then
|
If ResumenDia(0)("DiaVacacion").ToString() = "True" Then
|
||||||
RRow(ColumN) = "V" & "|" & filtro
|
RRow(ColumN) = "V" & "|" & filtro
|
||||||
Else
|
|
||||||
If ResumenDia(0)("Asistio").ToString() = "False" Then
|
|
||||||
RRow(ColumN) = "F" & "|" & filtro
|
|
||||||
Else
|
Else
|
||||||
If ResumenDia(0)("Retraso").ToString() = "True" Then
|
If ResumenDia(0)("Asistio").ToString() = "False" Then
|
||||||
RRow(ColumN) = "R" & "|" & filtro
|
RRow(ColumN) = "F" & "|" & filtro
|
||||||
Else
|
Else
|
||||||
If ResumenDia(0)("FaltaRetraso").ToString() = "True" Then
|
If ResumenDia(0)("Retraso").ToString() = "True" Then
|
||||||
RRow(ColumN) = "FR" & "|" & filtro
|
RRow(ColumN) = "R" & "|" & filtro
|
||||||
lblModalMensaje.Text = "Falta por retardo"
|
|
||||||
Else
|
Else
|
||||||
If ResumenDia(0)("Descanso").ToString() = "True" Then
|
If ResumenDia(0)("FaltaRetraso").ToString() = "True" Then
|
||||||
RRow(ColumN) = "D" & "|" & filtro
|
RRow(ColumN) = "FR" & "|" & filtro
|
||||||
|
lblModalMensaje.Text = "Falta por retardo"
|
||||||
Else
|
Else
|
||||||
If ResumenDia(0)("Inconsistencia").ToString() = "True" Then
|
If ResumenDia(0)("Descanso").ToString() = "True" Then
|
||||||
RRow(ColumN) = "IN" & "|" & filtro
|
RRow(ColumN) = "D" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If ResumenDia(0)("Inconsistencia").ToString() = "True" Then
|
||||||
|
RRow(ColumN) = "IN" & "|" & filtro
|
||||||
|
|
||||||
If ResumenDia(0)("Descanso").ToString() = "True" Then
|
If ResumenDia(0)("Descanso").ToString() = "True" Then
|
||||||
RRow(ColumN) = "IND" & "|" & filtro
|
RRow(ColumN) = "IND" & "|" & filtro
|
||||||
|
Else
|
||||||
|
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "S" Then
|
||||||
|
RRow(ColumN) = "S" & "|" & filtro
|
||||||
|
|
||||||
|
Else
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "M" Then
|
||||||
|
RRow(ColumN) = "M" & "|" & filtro
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "A" Then
|
||||||
|
RRow(ColumN) = "A" & "|" & filtro
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "V" Then
|
||||||
|
RRow(ColumN) = "V" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "F" Then
|
||||||
|
RRow(ColumN) = "F" & "|" & filtro
|
||||||
|
Else
|
||||||
|
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "R" Then
|
||||||
|
RRow(ColumN) = "R" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If TipoCorto = "FR" Then
|
||||||
|
RRow(ColumN) = "FR" & "|" & filtro
|
||||||
|
lblModalMensaje.Text = "Falta por retardo"
|
||||||
|
Else
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "D" Then
|
||||||
|
RRow(ColumN) = "D" & "|" & filtro
|
||||||
|
|
||||||
|
End If
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "I" Then
|
||||||
|
RRow(ColumN) = "I" & "|" & filtro
|
||||||
|
Else
|
||||||
|
If ResumenDia(0)("TipoCorto").ToString() = "C" Then
|
||||||
|
RRow(ColumN) = "C" & "|" & filtro
|
||||||
Else
|
Else
|
||||||
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "S" Then
|
If ResumenDia(0)("TipoCorto").ToString() = "S" Then
|
||||||
RRow(ColumN) = "S" & "|" & filtro
|
RRow(ColumN) = "S" & "|" & filtro
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "M" Then
|
If ResumenDia(0)("TipoCorto").ToString() = "M" Then
|
||||||
RRow(ColumN) = "M" & "|" & filtro
|
RRow(ColumN) = "M" & "|" & filtro
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1141,62 +1197,21 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "A" Then
|
|
||||||
RRow(ColumN) = "A" & "|" & filtro
|
|
||||||
End If
|
|
||||||
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "V" Then
|
|
||||||
RRow(ColumN) = "V" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "F" Then
|
|
||||||
RRow(ColumN) = "F" & "|" & filtro
|
|
||||||
Else
|
|
||||||
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "R" Then
|
|
||||||
RRow(ColumN) = "R" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If TipoCorto = "FR" Then
|
|
||||||
RRow(ColumN) = "FR" & "|" & filtro
|
|
||||||
lblModalMensaje.Text = "Falta por retardo"
|
|
||||||
Else
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "D" Then
|
|
||||||
RRow(ColumN) = "D" & "|" & filtro
|
|
||||||
|
|
||||||
End If
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "I" Then
|
|
||||||
RRow(ColumN) = "I" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "C" Then
|
|
||||||
RRow(ColumN) = "C" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "S" Then
|
|
||||||
RRow(ColumN) = "S" & "|" & filtro
|
|
||||||
Else
|
|
||||||
If ResumenDia(0)("TipoCorto").ToString() = "M" Then
|
|
||||||
RRow(ColumN) = "M" & "|" & filtro
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
|
ColumN = ColumN + 1
|
||||||
End If
|
Next
|
||||||
ColumN = ColumN + 1
|
dt.Rows.Add(RRow)
|
||||||
Next
|
Next
|
||||||
dt.Rows.Add(RRow)
|
Dim stopp As Integer = 0
|
||||||
Next
|
DtDatosTabla = dt
|
||||||
Dim stopp As Integer = 0
|
|
||||||
DtDatosTabla = dt
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable) As DataTable
|
Private Function HorarioDiario(Fecha As Date, DTHorarioPersonal As DataTable, DiaDescanso As Integer) As DataTable
|
||||||
Dim respuesta As New DataTable
|
Dim respuesta As New DataTable
|
||||||
respuesta.Columns.Add("TRABAJO", System.Type.GetType("System.Boolean"))
|
respuesta.Columns.Add("TRABAJO", System.Type.GetType("System.Boolean"))
|
||||||
|
|
||||||
@@ -1212,9 +1227,12 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
|
|
||||||
Dim diaSemana As Integer = Fecha.DayOfWeek
|
Dim diaSemana As Integer = Fecha.DayOfWeek
|
||||||
|
|
||||||
|
DiaDescanso = If(DiaDescanso > -1, DiaDescanso, 0)
|
||||||
|
|
||||||
Select Case diaSemana
|
Select Case diaSemana
|
||||||
Case 0
|
Case 0
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Domingo").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Domingo").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Domingo").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("DomingoEntradaComida").ToString()))
|
||||||
@@ -1222,42 +1240,48 @@ Partial Class RH_RepChecadorPreAsistencia
|
|||||||
|
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 1
|
Case 1
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Lunes").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Lunes").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Lunes").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("LunesEntradaComida").ToString()))
|
||||||
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("LunesSalida").ToString()))
|
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("LunesSalida").ToString()))
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 2
|
Case 2
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Martes").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Martes").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Martes").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MartesEntradaComida").ToString()))
|
||||||
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MartesSalida").ToString()))
|
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MartesSalida").ToString()))
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 3
|
Case 3
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Miercoles").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Miercoles").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Miercoles").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("MiercolesEntradaComida").ToString()))
|
||||||
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MiercolesSalida").ToString()))
|
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("MiercolesSalida").ToString()))
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 4
|
Case 4
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Jueves").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Jueves").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Jueves").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("JuevesEntradaComida").ToString()))
|
||||||
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("JuevesSalida").ToString()))
|
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("JuevesSalida").ToString()))
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 5
|
Case 5
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Viernes").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Viernes").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "true", drp("Viernes").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("ViernesEntradaComida").ToString()))
|
||||||
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("ViernesSalida").ToString()))
|
Drow(4) = TimeSpan.Parse(If(IsNothing(drp), "09:00", drp("ViernesSalida").ToString()))
|
||||||
Exit Select
|
Exit Select
|
||||||
Case 6
|
Case 6
|
||||||
Drow(0) = Boolean.Parse(If(IsNothing(drp), "False", drp("Sabado").ToString()))
|
Drow(0) = Boolean.Parse(If(IsNothing(drp), $"{(DiaDescanso <> diaSemana).ToString}", drp("Sabado").ToString()))
|
||||||
|
'Drow(0) = Boolean.Parse(If(IsNothing(drp), "False", drp("Sabado").ToString()))
|
||||||
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntrada").ToString()))
|
Drow(1) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntrada").ToString()))
|
||||||
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoSalidaComida").ToString()))
|
Drow(2) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoSalidaComida").ToString()))
|
||||||
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntradaComida").ToString()))
|
Drow(3) = TimeSpan.Parse(If(IsNothing(drp), "00:00", drp("SabadoEntradaComida").ToString()))
|
||||||
|
|||||||
@@ -18127,15 +18127,30 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
|
' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
|
||||||
If Not UsuarioActual.TienePermisoProceso(169) Then
|
If Not UsuarioActual.TienePermisoProceso(169) AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 5 Then
|
||||||
'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
|
'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
|
||||||
If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") OrElse ((DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119)) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ped") And UsuarioActual.CveEmpresa.Contiene(186)))) Then
|
If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") OrElse ((DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119)) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ped") And UsuarioActual.CveEmpresa.Contiene(186)))) Then
|
||||||
Dim ObjInventarios As New ClsInventarios
|
Dim ObjInventarios As New ClsInventarios
|
||||||
|
|
||||||
Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False)
|
Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False)
|
||||||
Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(),
|
|
||||||
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1,
|
|
||||||
RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla)
|
Dim Existencia As Decimal = 0D
|
||||||
|
''CveAlamcenFiltroDdl
|
||||||
|
|
||||||
|
If RBLTipoVenta.SelectedValue.ToEntero = 6 Then
|
||||||
|
Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, CveAlamcenFiltroDdl, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=-1,
|
||||||
|
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=0, PendientePorSurtir:=1,
|
||||||
|
RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla)
|
||||||
|
Else
|
||||||
|
Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(),
|
||||||
|
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1,
|
||||||
|
RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
|
Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
|
||||||
|
|
||||||
'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal
|
'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal
|
||||||
|
|||||||
Reference in New Issue
Block a user