diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 767eee53e..a0c3a75fc 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3264,8 +3264,46 @@ Public Class ClsNominas Return retorno End Function #End Region + Public Function GetConfiguracionNom(CveEmpresa As Int32, periodo As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_ConfiguracionNomGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Periodo", SqlDbType.Int).Value = periodo + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function #Region "MovtosPermanentes" + Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure) @@ -3305,7 +3343,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer + Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1, Optional EsAcumulado As Integer = 0) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) @@ -3321,6 +3359,7 @@ Public Class ClsNominas .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) .Add("@CveIE", SqlDbType.Int).Value = (CveIE) + .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado) .Add("@CveMovtoPermanente", SqlDbType.Int).Direction = ParameterDirection.Output End With Try @@ -3335,7 +3374,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean + Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional EsAcumulado As Integer = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -3350,6 +3389,7 @@ Public Class ClsNominas .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion) .Add("@estatus", SqlDbType.Bit).Value = (estatus) .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta) + .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado) End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index aca7aa3b2..3fb0c1389 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1143,13 +1143,14 @@ Public Class ClsOC Return Retorno End Function - Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean + Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4691356e8..a0acde0b9 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1331,7 +1331,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" 'sino existe, recarga los datos @@ -1347,7 +1347,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" 'sino existe, recarga los datos @@ -2411,7 +2411,7 @@ Public Class ClsPaginas End Set End Property - Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}" 'sino existe, recarga los datos @@ -4426,7 +4426,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}" 'sino existe, recarga los datos @@ -7725,7 +7725,7 @@ Public Class ClsPaginas End If ObjEmpresa.Dispose() Dim dtOC As DataTable = ObjOC.DtResultados - If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra + If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra DtDetalle = ObjOC.DtResultados End If @@ -7795,15 +7795,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) End If - End If - - End If - - - Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC) @@ -8141,6 +8135,7 @@ Public Class ClsPaginas Return Nothing End If Dim CveNomina As Integer = ObjNomina.CveNomina + Dim RFCPackCertifica As String = "" Dim DTPercepciones As Data.DataTable Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable @@ -8171,8 +8166,18 @@ Public Class ClsPaginas If System.IO.File.Exists(PathXML) Then Dim XmlDoc As New System.Xml.XmlDocument 'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml") + + Dim timbreFiscal = (XDocument.Load(PathXML)).Descendants(). + Where(Function(e) e.Name.LocalName = "TimbreFiscalDigital"). + FirstOrDefault() + + If timbreFiscal IsNot Nothing Then + RFCPackCertifica = timbreFiscal.Attribute("RfcProvCertif")?.Value + Else + End If XmlDoc.Load(PathXML) + If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText @@ -8414,6 +8419,10 @@ Public Class ClsPaginas Dim Archivo As New System.IO.FileInfo(RutaFormato) If Not TieneError Then If Archivo.Exists Then + If Extensiones.ModExtensiones.HasReportParameter(RutaFormato, "RFCPackCertifica") Then + RptParametro.Add(New ReportParameter("RFCPackCertifica", RFCPackCertifica)) + + End If Retorno = StreamPDF(RutaFormato, LSRds, RptParametro, ObjNomina.SerieFolio, "PDF", MR:=Nothing) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\\{1}.pdf", RutaEmpresa, ObjNomina.SerieFolio)) If Not ArchivoPDF.Exists Then @@ -10423,8 +10432,9 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/PreNominaHistorial.aspx".ToUpper(), 148) PaginaDict.Add("/Nomina/RepPreNomina.aspx".ToUpper(), 74) PaginaDict.Add("/Nomina/Nomina.aspx".ToUpper(), 75) - PaginaDict.Add("/Nomina/NominaB.aspx".ToUpper(), 75) - PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75) + PaginaDict.Add("/Nomina/Configuracion.aspx".ToUpper(), 1135) + PaginaDict.Add("/Nomina/RepMovtosPermanentes.aspx".ToUpper(), 1136) + PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75) PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91) PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 10d354956..4e5d0a0fb 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -30,6 +30,7 @@ Namespace Extensiones #Region "E X T E N S I O N E S" Public Module ModExtensiones + Public ReadOnly Property foreign_characters As Dictionary(Of String, String) Get Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From { @@ -3771,6 +3772,20 @@ Namespace Extensiones text = str.Replace("&", "&") Return text + End Function + + + Function HasReportParameter(reportPath As String, parameterName As String) As Boolean + ' Leer el archivo .rdlc como XML + Dim rdlcDoc As XDocument = XDocument.Load(reportPath) + + ' Buscar el parámetro en el XML + Dim parameters = From e In rdlcDoc.Descendants() + Where e.Name.LocalName = "ReportParameter" + Select e.Attribute("Name").Value + + ' Verificar si existe el parámetro RFCPackCertifica + Return parameters.Contains(parameterName) End Function End Module #End Region diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 16ab112f6..37fce5bfc 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -250,15 +250,7 @@ - -
- - -
+
@@ -377,7 +369,14 @@
- +
+ + +
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 9d85caa3c..dfdd7142d 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -191,7 +191,7 @@ Partial Class Bancos_RepProgramarRecursos Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero DdlSubProyecto.SelectedValue = CveSubProyecto.ToString - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy) DdlSubProyecto.DataBind() End If diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index b7975235e..8a87f6cbb 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1885,10 +1885,10 @@
- + - - + + @@ -1896,7 +1896,7 @@
- + Clasificación diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e178be666..73fb13dfd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1647,15 +1647,10 @@ Partial Class Compras_Compras DdlTipoComprobante.SelectedValueExist("DEV") End If - - If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then - - ConfiguraseleccionRemisionNotaCredito() - End If End If @@ -7693,7 +7688,6 @@ Partial Class Compras_Compras End If End If - If Not TieneError Then ObjCompras.Commit() If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() @@ -7735,7 +7729,7 @@ Partial Class Compras_Compras Else ObjCompras.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError) End If @@ -10669,7 +10663,7 @@ Partial Class Compras_Compras 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio)) RegistraScript("tb_remove();") - If OC.GetOrdenesDetalle(CveOC) Then + If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then dt = OC.DtResultados End If End If @@ -11087,7 +11081,7 @@ Partial Class Compras_Compras Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1) gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear() If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then - gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) End If gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind() gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -11143,7 +11137,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero)) End If e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind() @@ -13491,7 +13485,7 @@ Partial Class Compras_Compras CargaGVsAF() CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCTemp + GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS") Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then @@ -13502,7 +13496,7 @@ Partial Class Compras_Compras GvOC1.DataBind() ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT) - GvOC2.DataSource = TmpDT + GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataBind() UpGvOC1.Update() @@ -14341,7 +14335,7 @@ Partial Class Compras_Compras Dim StrPromos As New StringBuilder For Each CveOCItem As String In ArrayCveOC.Distinct - If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then + If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If IsNothing(DTOCTemp) Then DTOCTemp = ObjOC.DtResultados.Copy Else @@ -14547,24 +14541,10 @@ Partial Class Compras_Compras CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCGV + GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS") GvOC1.DataBind() - 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO - If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then - For Each Gvr As GridViewRow In GvOC1.Rows - Dim Change As Boolean = False - For Each Dr2 As DataRow In TmpDT.Rows - If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then - Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString - Change = True - End If - Next - If Not Change Then - Gvr.FCTextBox("TxtCantidad").Text = "0" - End If - Next - End If + Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOGV.Rows.Count > 1 Then @@ -14578,14 +14558,43 @@ Partial Class Compras_Compras RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ") }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}") Cont += 1 Next - UpGvOC1.Update() - - TmpDT = TmpDT.FiltraParametros("", "PU") - + TmpDT = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataSource = TmpDT GvOC2.DataBind() + + 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + For Each Gvr As GridViewRow In GvOC1.Rows + Dim Change As Boolean = False + For Each Dr2 As DataRow In TmpDT.Rows + If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then + Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString + Change = True + End If + Next + If Not Change Then + Gvr.FCTextBox("TxtCantidad").Text = "" + End If + Next + 'detectar los ps que no están en la OC, códigos que no están en la OC + 'mostrar los ps que no están en la oc + Dim strMsg As New StringBuilder + For Each Gvr As GridViewRow In GvOC2.Rows + Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count + If i = 0 Then + strMsg.AppendFormat("- {0}
", Gvr.DataKey("CodigoPS")) + Gvr.BackColor = Drawing.Color.Red + End If + Next + If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra
" & strMsg.ToString, TipoMensaje.MsgAdvertencia) + + 'condicion temporal rmf + GvOC1.Columns(6).Visible = False + GvOC2.Columns(4).Visible = False + End If + UpGvOC2.Update() End Sub Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound @@ -17195,7 +17204,7 @@ Partial Class Compras_Compras CveProyecto = -1 End If - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -17924,7 +17933,7 @@ Partial Class Compras_Compras Private Sub CargaSubProyectoAsignado() DdlAsignaSubProyecto.Items.Clear() If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then - DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero)) End If DdlAsignaSubProyecto.DataBind() DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 9e0faaffb..382d550c6 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -835,7 +835,7 @@ Partial Class Contratos_Default End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyectoContrato.Items.Clear() - DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index d0deb8ccf..ac3ae3950 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra ' DdlProyecto.DataBind() 'End If End Sub - 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - ' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) - 'End Sub - 'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) - ' DdlSubProyectoContrato.Items.Clear() - ' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) - ' DdlSubProyectoContrato.DataBind() - ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) - 'End Sub + Private Sub CargaContratista() DdlContratista.setEsWebService(True) DdlContratista.Attributes.Add("data-metodo", "getproveedores") diff --git a/Inventarios/Equivalencia.aspx.vb b/Inventarios/Equivalencia.aspx.vb index c357c49f5..9844c5684 100644 --- a/Inventarios/Equivalencia.aspx.vb +++ b/Inventarios/Equivalencia.aspx.vb @@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia Private Sub InicializarListas() 'Llenar el dropdownlist de unidad de medida - ddlUnidad.DataSource = GlobalDTUnidadesMedida() + ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlUnidad.DataBind() @@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() + e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").DataBind() End If diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 6b3d73883..16da8dd39 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -24,69 +24,73 @@ -
-
-
- - "> - -
-
-
-
Origen
-
- -
+ + -
Destino
-
- +
+
+
+ + "> +
-
Fecha Inicio
-
-
- - - - +
+
+
Origen
+
+ +
+ +
Destino
+
+ +
+
Fecha Inicio
+
+
+ + + + +
+ + +
+
Fecha Fin
+
+
+ + + + +
+ + +
- - -
-
Fecha Fin
-
-
- - - - -
- -
-
-
-
> +
> -
-
+
+
+ +
- + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada,CveMovimientoRelacionado" > - - - - - - <%----%> + + + + + @@ -96,25 +100,40 @@ - + <%-- - +
+
+ +
+
+ +
+
- + --%> + + +
+
+ +
+
+ +
+
+
+ + + + - - - - - +
-
- - - +
-
+
-
+
+
+ +
-
+ <%--
- <%----%> - + +
-
+
--%>
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 763e669aa..fb6602a54 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud Private Sub CargaAlmacenes() 'Cargo los almacenes - DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado + DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) @@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud End Sub Private Sub CargaCombos() - DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenOrigenFiltro.DataBind() DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1")) - DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") + DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenDestinoFiltro.DataBind() DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1")) @@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs) + GvSolicitudes.DataSource = Nothing + GvSolicitudes.DataBind() + UpModalSolicitudes.Update() RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd")) End Sub @@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs) - Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero + Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero If Not CveAlmacenTransictorio > 0 Then Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia) @@ -674,24 +677,43 @@ Partial Class Inventarios_TrasladoSolicitud If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) + Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False) + + Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero + Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero + Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero + Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero + Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero + + Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso + + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info" + e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen Else If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" + e.Row.FCLinkButton("LnkMostrarTraspaso").Text = "" + + If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso e.Row.DataKey("CveMovimientoRelacionado") = "" Then + e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True + e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}" + End If + + If e.Row.DataKey("CveMovimientoRelacionado") <> "" Then + e.Row.FCLabel("LblTraspasoEstatus").Text = "Recibido" + End If + Else e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red" End If - - End If - - End If End Sub @@ -702,7 +724,7 @@ Partial Class Inventarios_TrasladoSolicitud DdlAlmacenDestino.SelectedValue = Nothing DdlAlmacenDestino.Items.Clear() - DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) UpPS.Update() diff --git a/Inventarios/TrasladoSolicitudOld.aspx.vb b/Inventarios/TrasladoSolicitudOld.aspx.vb index f3870501b..6c0e39898 100644 --- a/Inventarios/TrasladoSolicitudOld.aspx.vb +++ b/Inventarios/TrasladoSolicitudOld.aspx.vb @@ -1153,7 +1153,7 @@ Partial Class Inventarios_TrasladoSolicitudOld Dim SB As New StringBuilder - Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim + Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim If CorreoDestino.Length > 0 Then @@ -1193,7 +1193,7 @@ Partial Class Inventarios_TrasladoSolicitudOld Dim SB As New StringBuilder - Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim + Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim If CorreoDestino.Length > 0 Then diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 852727307..98e9ac049 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen ImgFechaRecepcion.Visible = False End If + If Request("CveAlmacenTransitorioR") IsNot Nothing Then + CargaRecepcionTraspaso() + End If + Else If ChkTransitorio.Checked Then RegistraScript(" $('#DivGastoIndirecto').show(0); ") @@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen End If End Sub + Private Sub CargaRecepcionTraspaso() + Tab.ActiveTabIndex = 1 + Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1) + Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1) + Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1) + + DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR) + DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR) + TxtFolioRecepcion.Text = FolioR.ToString + + CargaRecepcion() + End Sub + #Region "CARGA DATOS" Protected Sub CreaDT() Dim dt As New DataTable @@ -457,7 +474,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1")) 'Llena Almacen Transitorio Recepcion - DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) + DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 3) DdlAlmacenTransitorioRecepcion.DataBind() DdlAlmacenTransitorioRecepcion.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -2377,11 +2394,11 @@ Partial Class Inventarios_TraspasoAlmacen Dim Mensaje As StringBuilder = New StringBuilder Mensaje.AppendFormat("Se realizo correctamente la recepción.
Folio de Entrada: {0}", Folio, CveMovimientoEntrada) - Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()' - If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("


Folio Virtual {2}
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()' + Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()' + If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("


Folio Virtual {2}
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()' If CancelacionTraspaso IsNot Nothing Then - If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("


Folio Devolución {2}
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()' + If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("


Folio Devolución {2}
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()' End If Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 4b3d3ab11..49396092f 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -794,6 +794,8 @@
+
+
@@ -814,11 +816,7 @@
- - - Guardar - - + Guardar
@@ -1390,7 +1388,7 @@ + DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,MontoLimiteV,TipoDescuento,Valor,VecesAplicar,MontoLimite,EsAcumulado,FechaInicioAplicacion,Estatus,FechaRegistro"> @@ -1419,7 +1417,7 @@ + CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimiteV","{0:###,###.##}")%>'> @@ -1444,6 +1442,8 @@
+ + @@ -2182,6 +2182,207 @@
+ + <%----%> @@ -4359,132 +4560,7 @@ - <%-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - showResult - - --%> +
@@ -5101,7 +5177,7 @@
- + -
+
-
+
@@ -5130,24 +5206,24 @@
- +
-
- +
+
- - - - + + + + - +
- +
-
+
@@ -5156,7 +5232,7 @@ --%> - +
@@ -5166,7 +5242,7 @@ DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder"> - +
@@ -5205,202 +5281,6 @@
- diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 89721786b..678a3bca4 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -40,7 +40,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } set { ViewState["DtNomOcultarMostrar"] = value; } } - + private DataTable DtNomPersonalizarxls { get @@ -2642,10 +2642,92 @@ public partial class Nomina_Nomina2 : ClsPaginas }//ImgDelete protected void LnkReenviarCorreoSobreRecibo_Click(object sender, EventArgs e) { + + //string msggral = ""; + int CvePeriodo = 0; + ClsSisMail Mail = new ClsSisMail(); + DataTable dtpersonal = new DataTable(); + DataRow drow; + using (ClsRH objrh = new ClsRH()) + { + objrh.GetPersonal(-1, UsuarioActual.CveEmpresa); + dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto" }); + } + using (ClsRH objrh = new ClsRH()) + using (ClsNominas ObjNomina = new ClsNominas()) + { + foreach (GridViewRow gvRow in GvNominas.Rows) + { + CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero(); + int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); + int CveNomina = gvRow.DataKey("CveNomina").ToEntero(); + int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero()); + LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar"); + string Correo = string.Empty; + string NombreCompleto = string.Empty; + if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null) + { + Correo = drow["Correo"].ToString(); + NombreCompleto = drow["NombreCompleto"].ToString(); + } + if (CvePersonal == SRCvePersonal && SeTimbro == 1) + { + + if (Correo.Trim().Length > 0) + { + byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); + if (pdf != null) + { + List objarch = new List(); + + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) + { + string Ruta = ""; + string PathXML = ""; + string PathXMLF = ""; + string Xmlname = ""; + string XmlnameF = ""; + //string empleado = ""; + Ruta = UsuarioActual.Empresa.Ruta; + PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; + PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + Xmlname = $"{ObjNomina.SerieFolio}.xml"; + XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); + //this.GuardaLog(PathXML); + if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname }); + } + if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); + } + } + + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); + + objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); + + } + } + + + } + } + } + Alert("se reenvió el recibos timbrados"); } protected void LnkCancelarSobreRecibo_Click(object sender, EventArgs e) { - showhideaccionesSR(true); + DataRow dr = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal)); + CveNominaCancelar = dr["CveNomina"].ToString().ToEntero(); + DdlMotivoCancelacion.DataSource = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)"); + DdlMotivoCancelacion.DataBind(); + UpCancelarDocumento.Update(); + RegistraScript("$('#ModalCancelarDocumento').modal()"); + //showhideaccionesSR(true); } public void showhideaccionesSR(bool cargadatos = false) { @@ -4836,7 +4918,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DataTable dtColumnas = GetTablaColumnasConceptos(); DdlMOPXColumna.DataSource = dtColumnas; DdlMOPXColumna.DataBind(); - + { addcoltopersonalizar("Codigo", "0", "Codigo", ""); @@ -4859,7 +4941,7 @@ public partial class Nomina_Nomina2 : ClsPaginas foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows)// - { + { if (!(dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { addcoltopersonalizar(row["Concepto"].ToString(), "1", string.Format("[V_{0}]", row["CveConcepto"].ToString()), row["Codigo"].ToString()); @@ -4944,11 +5026,67 @@ public partial class Nomina_Nomina2 : ClsPaginas UpPersonalizarxls.Update(); } + private void Titlecell(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null) + { + ClosedXML.Excel.IXLCell celda = libro.Cell(fi, ff); + celda.Value = Valor; + if (borderColor != null) + { + if (topBorder) + { + celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.TopBorderColor = borderColor; + + } + celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.LeftBorderColor = borderColor; + celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.RightBorderColor = borderColor; + + if (bottomBorder) + { + celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.BottomBorderColor = borderColor; + } + + } + } + //IXLRange + private void TitleRange(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, int fi2, int ff2, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null) + { + ClosedXML.Excel.IXLRange celda = libro.Range(fi, ff, fi2, ff2).Merge(); + celda.Value = Valor; + if (borderColor != null) + { + if (topBorder) + { + celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.TopBorderColor = borderColor; + + } + celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.LeftBorderColor = borderColor; + celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.RightBorderColor = borderColor; + + if (bottomBorder) + { + celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium; + celda.Style.Border.BottomBorderColor = borderColor; + } + + } + } protected void LnkFormatoPersonalizado_Click(object sender, EventArgs e) { try { ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + var PercborderColor = ClosedXML.Excel.XLColor.FromArgb(0, 102, 0); + var dedcborderColor = ClosedXML.Excel.XLColor.FromArgb(99, 37, 35); + ClosedXML.Excel.XLColor colorperp = ClosedXML.Excel.XLColor.FromArgb(51, 153, 102); + ClosedXML.Excel.XLColor colorded = ClosedXML.Excel.XLColor.FromArgb(150, 54, 52); + ClosedXML.Excel.IXLCell celda; var libro = wb.AddWorksheet("Nomina"); int column = 1; int filainicio = 3; @@ -4968,71 +5106,88 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Range(2, 2, 2, 4).Merge().Value = periodo; int iniciotipe = column; - + int incioConceptos = iniciotipe + 1; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Mensual"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Sueldo"; + Titlecell(libro, "Mensual", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "Sueldo", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Sueldo"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "diario"; + Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "dias Pen"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Pago"; + Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); libro.Column(column).Width = 15; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND SoloVisible =0").Rows) { - column++; - libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString(); - libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString(); - libro.Column(column).Width = 15; if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { libro.Column(column).Hide(); } + else + { + Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, PercborderColor); + Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); + libro.Column(column).Width = 15; + } + } + column++; + + TitleRange(libro, "Percepciones", filainicio + 2, column, filainicio + 3, column, true, true, PercborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor); + libro.Column(column).Width = 15; + if (iniciotipe < column) + { + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + TitleRange(libro, "Percepciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, PercborderColor); + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones"; } - //column++; - //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones"; - //libro.Column(column).Width = 15; - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones"; - //} iniciotipe = column; + int finPercepciones = iniciotipe; column++; - libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Incapacidad"; - libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Perm. Faltas"; + TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, true, false, dedcborderColor); + TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); libro.Column(column).Width = 15; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows) { column++; - libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString(); - libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString(); - libro.Column(column).Width = 15; if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0)) { libro.Column(column).Hide(); } + else + { + Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, dedcborderColor); + Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); + libro.Column(column).Width = 15; + } } - //column++; - //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones"; - //libro.Column(column).Width = 15; - - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones"; - //} + column++; + TitleRange(libro, "Deducciones", filainicio + 2, column, filainicio + 3, column, true, true, dedcborderColor); + libro.Column(column).Width = 15; + if (iniciotipe < column) + { + libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + TitleRange(libro, "Deducciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, dedcborderColor); + Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); + } + + int findeducciones = column; //column++; //libro.Cell(filainicio + 1, column).Value = " "; @@ -5043,23 +5198,14 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Total"; libro.Column(column).Width = 15; iniciotipe = column; - - //if (iniciotipe < column) - //{ - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; - // libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones"; - //} - //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - //libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199)); - //libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - //libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); int maxnocolumn = column; + libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(filainicio + 1, incioConceptos, filainicio + 4, finPercepciones).Style.Fill.SetBackgroundColor(colorperp); + libro.Range(filainicio + 1, finPercepciones + 1, filainicio + 4, findeducciones).Style.Fill.SetBackgroundColor(colorded); int Fila = filainicio + 3; int cveSupProyecto = -5; @@ -5068,7 +5214,7 @@ public partial class Nomina_Nomina2 : ClsPaginas int oldcveSupProyecto = -5; bool newsubproyecto = false; bool newsubproyectoTitulo = false; - List filasborrar= new List(); + List filasborrar = new List(); DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto"); dtsr.Rows.Add(dtsr.NewRow()); foreach (DataRow erow in dtsr.Rows) @@ -5107,6 +5253,7 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; libro.Cell(Fila, column).Value = erow["SalarioDiario"]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; column++; libro.Cell(Fila, column).Value = ""; @@ -5115,22 +5262,32 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; string Concepto = string.Format("V_{0}", row["CveConcepto"]); libro.Cell(Fila, column).Value = erow[Concepto]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + libro.Cell(Fila -3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; } } - //column++; - //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); - //libro.Cell(Fila, column).Value = erow["SumaPercepciones"]; - //if (newsubproyecto) - //{ - // libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); - //} + column++; + libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorperp); + Titlecell(libro, erow["SumaPercepciones"], Fila, column, false, false, PercborderColor); + libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + if (newsubproyecto) + { + libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorperp); + Titlecell(libro,"", Fila - 2, column, false, false, PercborderColor); + libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorperp); + libro.Cell(Fila - 3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; + Titlecell(libro, dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, PercborderColor); + //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + } column++; @@ -5140,20 +5297,30 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; string Concepto = string.Format("V_{0}", row["CveConcepto"]); libro.Cell(Fila, column).Value = erow[Concepto]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; } } - //column++; - //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); - //libro.Cell(Fila, column).Value = erow["SumaDeducciones"]; - //if (newsubproyecto) - //{ - // libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); - //} + column++; + libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorded); + Titlecell(libro, erow["SumaDeducciones"], Fila, column, false, false, dedcborderColor); + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + if (newsubproyecto) + { + libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorded); + Titlecell(libro, "", Fila - 2, column, false, false, dedcborderColor); + libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorded); + libro.Cell(Fila -3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; + Titlecell(libro, dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, dedcborderColor); + //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); + } //column++; //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); //libro.Cell(Fila, column).Value = erow["SumaEspecie"]; @@ -5164,8 +5331,12 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); libro.Cell(Fila, column).Value = erow["Total"]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; if (newsubproyecto) { + libro.Cell(Fila-2, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); + libro.Cell(Fila-3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166)); + libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;"; libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)); } @@ -5190,9 +5361,8 @@ public partial class Nomina_Nomina2 : ClsPaginas //} } + libro.Rows(Fila-2, Fila).Delete(); - libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); { var columnsToDelete = new List(); foreach (var columnx in libro.Columns()) @@ -5211,11 +5381,14 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Column(columnNumber).Delete(); } } + int primera = filasborrar.First(); + filasborrar.Remove(primera); filasborrar.Reverse(); foreach (int rownumber in filasborrar) { - libro.Rows(rownumber, rownumber).Delete(); + libro.Rows(rownumber-1, rownumber).Delete(); } + libro.Rows(primera, primera).Delete(); System.IO.Stream fs = new System.IO.MemoryStream(); wb.SaveAs(fs); fs.Position = 0; @@ -10525,7 +10698,7 @@ public partial class Nomina_Nomina2 : ClsPaginas StringBuilder SbErrores = new StringBuilder(); bool ErroresValidaciones = false; int modalidadnomina = 1; - if (UsuarioActual.CveEmpresa.Contiene(189,193,195,196,197)) modalidadnomina = 2; + if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197)) modalidadnomina = 2; SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:
"); @@ -11994,4 +12167,9 @@ public partial class Nomina_Nomina2 : ClsPaginas UpDatos.Update(); } + + protected void ddltipoPersonalizar_SelectedIndexChanged(object sender, EventArgs e) + { + + } } \ No newline at end of file diff --git a/OC/CotizacionEnvio.aspx.vb b/OC/CotizacionEnvio.aspx.vb index 8fc084c94..2636302f6 100644 --- a/OC/CotizacionEnvio.aspx.vb +++ b/OC/CotizacionEnvio.aspx.vb @@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then 'Cargar los detalles de la cotizacion - If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then + If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then 'Agrega CveCotizacion a la lista OrdenCotizacion.Add(objCotizacion.CveCotizacion) For Each RowCD As DataRow In objCotizacion.DtResultados.Rows @@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio 'verifico los permisos según el estatus Dim dtConceptos As DataTable = Nothing - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then dtConceptos = objOC.DtResultados End If diff --git a/OC/OC.aspx b/OC/OC.aspx index dd6c99ce1..88f22bc33 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -212,7 +212,8 @@ - + +
@@ -220,6 +221,9 @@ + + +
@@ -446,15 +450,7 @@ - - - Sucursal: - - - - - - +
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe1dae599..419e71f4c 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -728,7 +728,7 @@ Partial Class OC_OC 'temporal If UsuarioActual.CveEmpresa = 189 Then 'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) - DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto") + DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"}) DdlSubProyectoGral.DataBind() DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) End If @@ -957,8 +957,11 @@ Partial Class OC_OC End If End If - If UsuarioActual.CveRol = 1 Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then chkSubProyectoEntrega.Visible = True + LblPrioridad.Text = "Sucursal" + DdlPrioridad.Visible = False + DdlSubProyectoGral.Visible = True End If End If @@ -1686,7 +1689,7 @@ Partial Class OC_OC CboE.DataBind() End If - If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then + If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then DtDetalle = objOC.DtResultados End If @@ -2043,7 +2046,7 @@ Partial Class OC_OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -4956,7 +4959,7 @@ Partial Class OC_OC End If End Sub Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click - Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim) + Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa) RegistraScript("hideDivEC();") End Sub #End Region @@ -6428,7 +6431,7 @@ Partial Class OC_OC 'verifico los permisos según el estatus - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then For Each dr As DataRow In objOC.DtResultados.Rows strBody.AppendFormat("{0}{1}{2}
{3}{4}{5}
{6}{7}{8}{9}", dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), "")) @@ -6470,7 +6473,7 @@ Partial Class OC_OC objOC.GetOC(CveOrdenCompra, CveEmpresaActual) CveProveedor = objOC.CveProveedor Dim DttDetalle As DataTable = Nothing - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then DttDetalle = objOC.DtResultados End If @@ -6567,7 +6570,7 @@ Partial Class OC_OC #End Region #Region "Correo Eliminar Cotización" - Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String + Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String Dim ObjCotizacion As New ClsOC ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion) Dim strBody As New StringBuilder @@ -6650,7 +6653,7 @@ Partial Class OC_OC strBody.Append(" ") Dim dtConceptos As DataTable = Nothing - If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then + If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then dtConceptos = ObjCotizacion.DtResultados End If @@ -9282,6 +9285,8 @@ Partial Class OC_OC End Sub Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs) + DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) + UPPDetalle.Update() CargaFolios() End Sub End Class diff --git a/OC/OC2.aspx.vb b/OC/OC2.aspx.vb index e680ffd60..c6224001d 100644 --- a/OC/OC2.aspx.vb +++ b/OC/OC2.aspx.vb @@ -795,7 +795,7 @@ Partial Class OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index 2fbbf1989..23ef40fde 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -129,7 +129,7 @@ Partial Class OC_PopUpBuscarReq Private Sub CargaSubProyectos(CveProyecto As Integer) DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/OC/RepCotizacionesDetalle.aspx.vb b/OC/RepCotizacionesDetalle.aspx.vb index 29e725848..c4598de88 100644 --- a/OC/RepCotizacionesDetalle.aspx.vb +++ b/OC/RepCotizacionesDetalle.aspx.vb @@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle Private Sub CargaOCDetalle(pCveOrden As Integer) Dim objOC As New ClsOC - If objOC.GetOrdenesDetalle(pCveOrden) Then + If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then DtDetalle = objOC.DtResultados End If diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index cfbbd1ffd..e980329db 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -80,7 +80,7 @@ Partial Class OC_RepRequisiciones DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) Else - DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1) + DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyecto.DataBind() End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 2454d6adb..5fba840c0 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaTiposVenta() - DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") + DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlTipoVenta.DataBind() End Sub @@ -500,16 +500,7 @@ Partial Class OS_OrdenesServicios End If UpDetalleOS.Update() End Sub - 'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) - ' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) - ' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue - ' gvr.FCDropDownList("DDlSubProyecto").Items.Clear() - ' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) - ' gvr.FCDropDownList("DDlSubProyecto").DataBind() - ' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) - - 'End Sub Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero diff --git a/OS/PopUpMateriales.aspx.vb b/OS/PopUpMateriales.aspx.vb index c2ea18ead..003610457 100644 --- a/OS/PopUpMateriales.aspx.vb +++ b/OS/PopUpMateriales.aspx.vb @@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0) Dim PS As String = RowPS("PS").ToString Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero - Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString + Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 296551dc9..f6d48d7ac 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -102,7 +102,7 @@ Partial Class CatSubProyectos Private Sub RecargaGlobal() GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing - GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing End Sub diff --git a/Presupuestos/GenerarPresupuestos.aspx.vb b/Presupuestos/GenerarPresupuestos.aspx.vb index 0b60ba2bd..2aa6266d6 100644 --- a/Presupuestos/GenerarPresupuestos.aspx.vb +++ b/Presupuestos/GenerarPresupuestos.aspx.vb @@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1")) - ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlPUM.DataBind() Dim ObjClientes As New ClsClientes @@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble tbPrecioMO.Text = PU.ToString - ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlMOUnidad.DataBind() End If @@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos If ddlPS.SelectedIndex > 0 Then Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble tbPrecio.Text = PU.ToString - ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa) + ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlUM.DataBind() End If End Sub diff --git a/RH/AsistenciaDetalle.aspx.vb b/RH/AsistenciaDetalle.aspx.vb index 465da36b1..605a96f0a 100644 --- a/RH/AsistenciaDetalle.aspx.vb +++ b/RH/AsistenciaDetalle.aspx.vb @@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear() - GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) + GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind() End Sub diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index b60a418ae..883413cdf 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido SubProyectoDdl.Items.Clear() SubProyectoDdl.SelectedValue = Nothing If CveProyecto > 0 Then - SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto) + SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto) End If SubProyectoDdl.DataBind() SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1")) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index e2e34b308..2d0ad96bd 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones Case "" dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Case Else - dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable) + dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable) End Select Gv.DataSource = dt diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index 7a25e1e90..fd4dd7351 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa End Sub Private Sub GetEmpresas() - GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + GlobalDTUsuarios(-1, -1) = Nothing + Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1) If Dt IsNot Nothing Then If Dt.Rows.Count > 0 Then diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index aac3a871c..7c80c0c08 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -166,22 +166,23 @@ Partial Class ListadoContratos End If Anexo.Text = "" - If ErrorProceso = False Then + 'If ErrorProceso = False Then - Dim Respuesta As New RespuestaFacturacion() - Dim CvePS As Integer = 907783 - Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) + ' Dim Respuesta As New RespuestaFacturacion() + ' Dim CvePS As Integer = 907783 + ' Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) - If Respuesta.CveVenta > 0 Then - CveVentaRemision = Respuesta.CveVenta - SerieFolioRemision = Respuesta.SerieFolio - ErrorProceso = False - Else - ErrorProceso = True - Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) - End If + ' If Respuesta.CveVenta > 0 Then + ' CveVentaRemision = Respuesta.CveVenta + ' SerieFolioRemision = Respuesta.SerieFolio + ' ErrorProceso = False + ' Else + ' ErrorProceso = True + ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) + ' End If + + 'End If - End If Else ErrorProceso = True diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 080d75df6..a69e53fd1 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -431,13 +431,13 @@
- +
- +
- +
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index b27d08721..8cbfdf484 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -382,7 +382,7 @@ Partial Class Ventas_PVCobranza 'validaciones Dim Pagado As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal If Pagado = 0 Then - Alert("Favor de especificar importe", TipoMensaje.MsgAdvertencia) + Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia) Exit Sub End If diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 2266011ad..b3a35cb8a 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios #Region "GV PAQUETE DETALLE" Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() + e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").DataBind() End If diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index 2e0d473fb..a12a4bf8b 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -433,9 +433,11 @@ <%--20--%> <%--21--%> - + <%--22--%> - + + <%--23--%> + @@ -477,7 +479,7 @@ - + @@ -493,11 +495,12 @@ - - + + + - + diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index c93e9be1d..a6a63d4bd 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -73,7 +73,8 @@ Partial Class Ventas_RepProductosServiciosDetalle Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - + DivMostrarCgame.Visible = (UsuarioActual.CveEmpresa = 172) + DivMostrarCgame2.Visible = (UsuarioActual.CveEmpresa = 172) If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") SetValues() CargaParametrosDetalle() @@ -558,6 +559,7 @@ Partial Class Ventas_RepProductosServiciosDetalle GvDatos.Columns(20).Visible = ChkOC_noOrden.Checked GvDatos.Columns(21).Visible = ChkOC_Kilogramos.Checked GvDatos.Columns(22).Visible = ChkOC_Cantidad.Checked + GvDatos.Columns(23).Visible = ChkNoManifiesto.Checked diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2ed20117c..10579e4c9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -37861,7 +37861,7 @@ Partial Class Ventas Private Sub CargaTiposVenta() - RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") + RBLTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") RBLTipoVenta.DataBind() RBLTipoVenta.Items.Add(New ListItem("Otros", "99")) diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index ef72b62e9..f17a9af4c 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -2449,7 +2449,7 @@ Public Class WSSIGApp If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then Dim IDPolizaPresupuestal = ObjOC.IdPoliza - If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then DtDetalle = ObjOC.DtResultados.Copy Dim ObjConta As ClsContPAQi = Nothing Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos) @@ -2679,7 +2679,7 @@ Public Class WSSIGApp Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson) Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault() If json IsNot Nothing Then - If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson))) End If Retorno = Encripta(json.ToString) @@ -2700,13 +2700,14 @@ Public Class WSSIGApp Dim Estructura = New With { Key .[CveOrdenCompra] = -1, + Key .[CveEmpresa] = -1, Key .[Ticks] = "" } Dim JsonRequest As String = Decripta(Cadena) Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura) If IsCurrentDate(Entrada.Ticks) Then Dim ObjOC As New ClsOC - If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then Dim JsonRetorno = ObjOC.DtResultados.ToJson retorno = Encripta(JsonRetorno) End If @@ -2871,7 +2872,7 @@ Public Class WSSIGApp If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then CveCotizacion = ObjOC.CveCotizacion 'Cargar los detalles de la cotizacion - If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then + If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then 'Agrega CveCotizacion a la lista For Each RowCD As DataRow In ObjOC.DtResultados.Rows @@ -3221,7 +3222,7 @@ Public Class WSSIGApp Dim dtConceptos As DataTable = Nothing Dim ObjOCdb As New ClsOC - If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then + If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then dtConceptos = ObjOCdb.DtResultados End If @@ -3320,7 +3321,7 @@ Public Class WSSIGApp 'verifico los permisos según el estatus - If objOC.GetOrdenesDetalle(CveOrdenCompra) Then + If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then For Each dr As DataRow In objOC.DtResultados.Rows strBody.AppendFormat("{0}{1}{2}
{3}{4}{5}
{6}{7}{8}{9}", dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))