diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 2308f3c28..d187b5980 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -1,5 +1,6 @@
Imports System.Data
Imports System.Data.SqlClient
+Imports ADSNetLibrary.SIGAPI.Models
Imports Extensiones
Imports HigLabo
@@ -1356,7 +1357,8 @@ Public Class ClsNominas
Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer,
EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
- AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer
+ AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer,
+ ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Nom_ConceptosAdd")
@@ -1383,6 +1385,14 @@ Public Class ClsNominas
.Add("Especie", SqlDbType.Bit).Value = Especie
.Add("Imprimir", SqlDbType.Bit).Value = Imprimir
.Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
+
+ .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
+ .Add("Contabiliza", SqlDbType.Int).Value = contabiliza
+ .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
+ .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
+ .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
+ .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
+
End With
Try
@@ -1407,7 +1417,8 @@ Public Class ClsNominas
Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer,
EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
- AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean
+ AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer,
+ ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ConceptosUpdate")
@@ -1433,6 +1444,13 @@ Public Class ClsNominas
.Add("Imprimir", SqlDbType.Bit).Value = Imprimir
.Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
.Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+ .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
+ .Add("Contabiliza", SqlDbType.Int).Value = contabiliza
+ .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
+ .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
+ .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
+ .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
End With
Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 2603c6129..1a5fe698c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4291,27 +4291,42 @@ Public Class ClsPaginas
ObjUsuario.Dispose()
Return Retorno
End Function
- Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
+ Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
+
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
- Case 1
- If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
- If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
- Case 2
- If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
- If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
- Case 3
- If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
- If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
- Case 4
- If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
"
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
- Case 5
- If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
"
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
+
+ Case 1 To 3
+ If LblSubProyecto IsNot Nothing Then
+ Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+ Case 1
+ LblSubProyecto.Text = "Centro de costo"
+ Case 2
+ LblSubProyecto.Text = "Sucursal"
+ Case 3
+ LblSubProyecto.Text = "Proyecto"
+ End Select
+ End If
+
+ If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto
+ If LblProyecto IsNot Nothing Then
+ LblProyecto.Visible = False
+ Else
+ RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');")
+ End If
+
+ Case 4 To 5
+ If LblSubProyecto IsNot Nothing Then
+ Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+ Case 4
+ LblSubProyecto.Text = "Subproyecto"
+ Case 5
+ LblSubProyecto.Text = "Sucursal"
+ End Select
+ End If
+ If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto"
+
End Select
+
If DdlProyecto IsNot Nothing Then
DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind()
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index c516288de..9e98ac57a 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -3520,9 +3520,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
#End Region
#Region "ClsRHTurnos"
- Public Function GetTurnos() As Boolean
+ Public Function GetTurnos(Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_RH_TurnoGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
Try
SqlAdapter.Fill(Data)
Retorno = True
@@ -3533,7 +3536,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer,
- ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
+ ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
+ Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
Dim Retorno As Boolean = False
@@ -3543,6 +3547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@Turno", SqlDbType.VarChar).Value = Turno
.Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
.Add("@HorarioA", SqlDbType.Time).Value = HorarioA
+
+ .Add("@Comida", SqlDbType.Int).Value = Comida
+ .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
+ .Add("@ComidaA", SqlDbType.Time).Value = ComidaA
+
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario
@@ -3568,7 +3577,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer,
- ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
+ ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
+ Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
Dim Retorno As Boolean = False
@@ -3578,6 +3588,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@Turno", SqlDbType.VarChar).Value = Turno
.Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
.Add("@HorarioA", SqlDbType.Time).Value = HorarioA
+
+ .Add("@Comida", SqlDbType.Int).Value = Comida
+ .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
+ .Add("@ComidaA", SqlDbType.Time).Value = ComidaA
+
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveTurno", SqlDbType.Int).Value = CveTurno
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 47d5bf7b6..5e0d0eaea 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -5031,7 +5031,7 @@ Namespace Modelos
'SI YA ESTA TIMBRADA, NUEVO PROCESO REFACTURACION, ASIGNA LA CANCELACION PENDIENTE
'EL ESTATUS REFACTURACION 4 ES PARA LAS QUE NO SE PUDIERON CANCELAR, DEBE OBLIGAR A CANCELAR ANTE EL SAT
- If EsRefacturacion AndAlso Me.CveEstatusFactura = 3 AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then
+ If EsRefacturacion AndAlso Me.CveEstatusFactura.Contiene(2, 3) AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then
CveEstatusFacturaAsignado = 23
End If
diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx
index 2b3afe529..9b735f488 100644
--- a/Compras/RepCompras.aspx
+++ b/Compras/RepCompras.aspx
@@ -158,9 +158,7 @@