diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 6ea87a883..9f6c539d7 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
- Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean
+ Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_HistorialBitacoraGet")
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
.Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
+ .Add("@Fecha", SqlDbType.Date).Value = Fecha
+
End With
'SqlTypes.SqlDateTime.Null
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 6cfd8a54b..03880cf97 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -131,8 +131,6 @@ Public Class ClsInventarios
Public Property ResponsableCarga As String
Public Property ResponsableRecibio As String
Public Property Modulo As String
- Public Property ConAplicacion As Boolean
-
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
FechaI = dr("FechaInicio").ToString
FechaF = dr("FechaFin").ToString
Estatus = dr("Estatus").ToString
- ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
-
Retorno = True
End If
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 9d1572a61..2dd6b5be7 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2483,6 +2483,52 @@ Public Class ClsNominas
End Try
Return retorno
End Function
+#Region "Prorrateo"
+
+ Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Nom_Prorrateosubproyecto")
+ SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Nom_ProrrateosubproyectoAdd")
+ SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Nom_ProrrateosubproyectoRemove")
+ SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+#End Region
#Region "CRUD_Nom_PersonalIncapacidad"
Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 9a643e6ef..a78a05d7c 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
- Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
+ Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@SDI", SqlDbType.Money).Value = SDI
.Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
End With
@@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End Try
Return Retorno
End Function
- Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
+ Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
.Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
.Add("@SDI", SqlDbType.Money).Value = SDI
@@ -2448,7 +2450,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Dim Retorno As Boolean = False
Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
If registros IsNot Nothing AndAlso registros.Count > 0 Then
- xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha))))
+ xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo))))
End If
Data = New DataTable
SqlDataAdapter("PA_RH_AsistenciaDetalleUP")
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 14b65061a..d411c482a 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -1515,15 +1515,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas
LnkAgregarAcercamiento.Visible = false;
}
- if ((UsuarioActual.CveVendedor != CveVendedor))
+
+ if (!UsuarioActual.TienePermisoProceso(330))
{
- BtnGuardarEmpresa.Visible = false;
- BtnEliminarEmpresa.Visible = false;
- BtnAgregarContacto.Visible = false;
- //LnkAgregarAcercamiento.Visible = false;
- DivAccionesBitacora.Visible = false;
- GVContactos.Columns[4].Visible = false;
+ if ((UsuarioActual.CveVendedor != CveVendedor))
+ {
+ BtnGuardarEmpresa.Visible = false;
+ BtnEliminarEmpresa.Visible = false;
+ BtnAgregarContacto.Visible = false;
+ //LnkAgregarAcercamiento.Visible = false;
+ DivAccionesBitacora.Visible = false;
+ GVContactos.Columns[4].Visible = false;
+ }
}
+
+
+
+
+
+
+
}
}
#endregion
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index d3840cc09..3bd8d405b 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -769,19 +769,24 @@ Partial Class Compras_eFacturas
If ObjDatos.DtResultados.Rows.Count > 0 Then
GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable()
DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'")
- Else
- GvD.DataSource = Nothing
+ 'Else
+ ' GvD.DataSource = Nothing
End If
End If
+
+
+
LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
- ObjDatos.Dispose()
-
If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
GvPagos.DataSource = DtPagos
End If
+
+ ObjDatos.Dispose()
+
+
GvPagos.DataBind()
UpPagos.Update()
@@ -1118,6 +1123,8 @@ Partial Class Compras_eFacturas
e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
+ Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))
+
If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then
@@ -2917,7 +2924,7 @@ Partial Class Compras_eFacturas
For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
- If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then
+ If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then
dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero
dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index c3735a602..48783158d 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -786,7 +786,7 @@ Partial Class Contratos_ContratoObra
LnkAbrirContrato.Visible = False
LnkCerrarContrato.Visible = False
- If UsuarioActual.TienePermisoProceso(330) Then
+ If UsuarioActual.TienePermisoProceso(173) Then
If ObjContratos.TipoEstatus = 1 Then
LnkCerrarContrato.Visible = True
@@ -4313,6 +4313,7 @@ Partial Class Contratos_ContratoObra
Else
RGVControlCantidadVentas.Visible = True
RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString
+ RGVControlCantidadVentas.ErrorMessage = $"No se puede tener un valor inferior a {CantidadMinimo} lo ya avanzado. "
End If
diff --git a/Empresas/158/Formatos/Factura.rdlc b/Empresas/158/Formatos/Factura.rdlc
index 03a985ccb..b59df08a7 100644
--- a/Empresas/158/Formatos/Factura.rdlc
+++ b/Empresas/158/Formatos/Factura.rdlc
@@ -1,5 +1,5 @@
-
+
0
@@ -870,7 +870,6 @@
Embedded
logo
FitProportional
- 0cm
2.54331cm
4.05375cm
9
@@ -1892,7 +1891,7 @@
- AJA850608L7A
+ AJA9809264V2
@@ -1447,7 +1447,7 @@
=Parameters!CadenaOriginal.Value
@@ -1473,7 +1473,7 @@
=Parameters!SelloSAT.Value
@@ -1573,53 +1573,7 @@
- Tipo de Transporte Internacional:
-
-
-
- =Parameters!TipoTI.Value
-
-
-
-
-
-
-
-
- Vía de Transporte Internacional:
-
-
-
- =Parameters!ViaTI.Value
-
-
-
-
-
-
-
-
- Permiso STCC:
+ Permiso SCT:
+
+
+
+ Numero de Permiso
+
+
+
+ :
+
+
+
+ =Parameters!NumPermiso.Value
+
+
+
+
+
Textbox2
1.13111in
@@ -1708,37 +1693,6 @@
true
true
-
-
-
- Numero de Permiso
-
-
-
- :
-
-
-
- =Parameters!NumPermiso.Value
-
-
-
-
-
diff --git a/General/ExcelToBD.aspx.cs b/General/ExcelToBD.aspx.cs
index 4f00078ce..1c3d4a6d7 100644
--- a/General/ExcelToBD.aspx.cs
+++ b/General/ExcelToBD.aspx.cs
@@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page
DdlWorkBooks.DataBind();
if (workBooks.Count > 0)
{
- DdlWorkBooks.SelectedIndex = 0;
+ DdlWorkBooks.SelectedIndex = 1;
DdlWorkBooks_SelectedIndexChanged(null, null);
}
+ LnkContinuar_Click(null, null);
}
protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e)
@@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
columnas = workSheet.LastRowUsed().CellCount();
TxtFilas.Text = Filas.ToString();
TxtInicia.Text = "2";
- TxtColumnas.Text = "62";// columnas.ToString();
+ TxtColumnas.Text = "48";//"62";// columnas.ToString();
}
}
diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx
index 8ae601114..8ad4fd876 100644
--- a/Nomina/ChecadorAsistencia.aspx
+++ b/Nomina/ChecadorAsistencia.aspx
@@ -4,6 +4,9 @@