From 6bccdbe689831ac68f705cb891b1df3a08890761 Mon Sep 17 00:00:00 2001 From: caudillochon Date: Tue, 8 Apr 2025 01:13:52 -0700 Subject: [PATCH 1/7] listado word --- Nomina/Nomina.aspx | 11 ++++++++++- Nomina/Nomina.aspx.cs | 19 ++++++++++++++++--- RH/CatPersonal.aspx.vb | 1 + RH/Personal.aspx.vb | 2 +- 4 files changed, 28 insertions(+), 5 deletions(-) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 1fede38ff..cf02a5045 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1441,7 +1441,13 @@ CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("Saldo", "{0:###,###.##}")%>'> - + + + + + + <%----%> @@ -5289,6 +5295,9 @@ + + + diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 6936779b5..98a36cbb9 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -16,6 +16,7 @@ using iTextSharp.text.pdf.parser; using Profact.TimbraCFDI40; using Ionic.Zip; using DocumentFormat.OpenXml.Drawing; +using System.Web; public partial class Nomina_Nomina2 : ClsPaginas { @@ -5100,6 +5101,7 @@ public partial class Nomina_Nomina2 : ClsPaginas ClosedXML.Excel.XLColor colorperp = ClosedXML.Excel.XLColor.FromArgb(51, 153, 102); ClosedXML.Excel.XLColor colorded = ClosedXML.Excel.XLColor.FromArgb(150, 54, 52); ClosedXML.Excel.XLColor colororange = ClosedXML.Excel.XLColor.FromArgb(247, 150, 70); + ClosedXML.Excel.XLColor colororangeblue = ClosedXML.Excel.XLColor.FromArgb(79, 129, 189); ClosedXML.Excel.IXLCell celda; DataTable dtConceptos = this.dtConceptos.FiltraParametros("(Tipo ='P' AND EsPadre = 1 AND EsFormula =0) OR (Tipo = 'D' AND EsPadre = 1 AND EsFormula =0) OR Tipo = 'O' AND EsPadre = 1 AND EsFormula =0"); DataTable dtFiltrado = dtConceptos.Clone(); // Clonar la estructura del DataTable @@ -5194,8 +5196,13 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; - 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); + TitleRange(libro, "Asistencias", filainicio + 2, column, filainicio + 2, column+2, false, false, colororangeblue); + TitleRange(libro, "Incapacidad", filainicio + 3, column, filainicio + 3, column, false, false, colororangeblue); + column++; + TitleRange(libro, "Permisos", filainicio + 3, column, filainicio + 3, column, false, false, colororangeblue); + column++; + TitleRange(libro, "Faltas", filainicio + 3, column, filainicio + 3, column, false, false, colororangeblue); + column++; Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor); libro.Column(column).Width = 15; if (dtConceptos.FiltraParametros("Tipo ='D'").Rows.Count > 0) @@ -5391,7 +5398,11 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; - libro.Cell(Fila, column).Value = ""; + Titlecell(libro, erow["DiasIncapacidad"], Fila, column, false, false, dedcborderColor); + column++; + Titlecell(libro, "0", Fila, column, false, false, dedcborderColor); + column++; + Titlecell(libro, erow["DiasFaltados"], Fila, column, false, false, dedcborderColor); if (dtConceptos.FiltraParametros("Tipo ='D'").Rows.Count > 0) { @@ -9704,6 +9715,8 @@ public partial class Nomina_Nomina2 : ClsPaginas { LtlXml.Text = System.IO.File.ReadAllText(PathXML); script = string.Format("Savexml(\"{0} {1}.xml\", $('.ltlxml').html());", Xmlname, empleado); + + //System.IO.FileInfo file = new System.IO.FileInfo(PathXML); //string mimeType = "text/plain"; //try diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 0dd977d87..06f8c63bf 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -284,6 +284,7 @@ Partial Class RH_CatPersonal Private Sub CargaEstatusPersonal() DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal DdlEstatusPersonal.DataBind() + DdlEstatusPersonal.SelectedValueExist("1") End Sub Private Sub CargaProyecto() 'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 1b4ca41c4..aa8effabe 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -2124,7 +2124,7 @@ Partial Class RH_Personal If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=True, EstatusPagoElectronicoGrupos:=True) Then TieneError = True Exit For End If From cec031096bdc2081c9a741a07e168c45fd9fe3ae Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 9 Apr 2025 02:33:10 -0700 Subject: [PATCH 2/7] =?UTF-8?q?--Informaci=C3=B3n=20completa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClientes.vb | 25 +++++++++++++++++++++++-- Ventas/Clientes.aspx | 4 ++++ Ventas/Clientes.aspx.vb | 22 ++++++++++++++++++++-- Ventas/Ventas.aspx.vb | 18 ++++++++++++++++++ 4 files changed, 65 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index ad042738c..f38080777 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -528,6 +528,25 @@ Public Class ClsClientes Return Retorno End Function + Public Function GetClienteInformacionCompleta(CveCliente As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClientesInformacionCompletaGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la información completa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double, @@ -544,7 +563,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1, Optional InformacionCompleta As Boolean = True) As Boolean Dim Retorno As Boolean = False @@ -683,6 +702,7 @@ Public Class ClsClientes .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora .Add("@CveSubProyectoCobranza", SqlDbType.Int).Value = CveSubProyectoCobranza + .Add("@InformacionCompleta", SqlDbType.Bit).Value = InformacionCompleta End With Try SqlAdapter.Fill(Data) @@ -729,7 +749,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1, Optional InformacionCompleta As Boolean = True) As Boolean Dim Retorno As Boolean = False @@ -878,6 +898,7 @@ Public Class ClsClientes .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora .Add("@CveSubProyectoCobranza", SqlDbType.Int).Value = CveSubProyectoCobranza + .Add("@InformacionCompleta", SqlDbType.Bit).Value = InformacionCompleta End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index f99b79160..320c35caf 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -3785,6 +3785,10 @@ +
+ Información Completa: + +
Fecha de Captura: diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index daa096874..88a3b7885 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -682,6 +682,9 @@ Partial Class Clientes RegistraScript("CargaHeader();") CargaCombosDirecionesClientesSAT() + If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + DivInfoCompleta.Visible = True + End If If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS TabFiscalContable.Visible = True @@ -1760,6 +1763,8 @@ Partial Class Clientes End If + ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString()) + 'Horario TxtHorario.Text = ObjClientes.Horario TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision @@ -2570,6 +2575,19 @@ Partial Class Clientes Alert("El uso del cfdi debe ser 'S01 - Sin efectos fiscales' cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Exit Sub + End If + + Dim InformacionCompleta As Boolean = True + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + + If TxtRFC.Text.Trim() = "" Then + InformacionCompleta = False + End If + + If DivInfoCompleta.Visible Then + InformacionCompleta = ChkInformacionCompleta.Checked + End If End If 'CargaSucursal() @@ -2679,7 +2697,7 @@ Partial Class Clientes ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, - CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then + CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero(), InformacionCompleta:=InformacionCompleta) Then CveClienteNuevo = ObjClientes.CveCliente @@ -2764,7 +2782,7 @@ Partial Class Clientes CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenConsignacion:=DdlAlmacenConsignacion.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, - EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then + EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero(), InformacionCompleta:=InformacionCompleta) Then If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then ErrorProceso = True diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dbece0253..c7fcb1d25 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8371,6 +8371,24 @@ Partial Class Ventas LblEnviarMail.Visible = True End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + Dim ObjClie As New ClsClientes + If ObjClie.GetClienteInformacionCompleta(CveCliente, UsuarioActual.CveEmpresa) Then + If Not CBool(ObjClie.DtResultados.FiltroPrimeroValor("InformacionCompleta")) Then + Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:

{0}", "Información incompleta") + Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) + + BtnEmitirImprimir.Visible = False + BtnsFacturar.Visible = False + BtnGenerarRemision.Visible = False + + TieneBloqueoPorCreditoVencimiento = 1 + End If + End If + ObjClie.Dispose() + End If + + End Sub From 012a6e44350d3422ab137bc9c25e23bc034a3a93 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 9 Apr 2025 02:35:23 -0700 Subject: [PATCH 3/7] --Formatos E153 --- Empresas/153/Formatos/Cotizacion.rdlc | 25 +++++++++++++++++-------- Empresas/153/Formatos/Factura.rdlc | 16 ++-------------- 2 files changed, 19 insertions(+), 22 deletions(-) diff --git a/Empresas/153/Formatos/Cotizacion.rdlc b/Empresas/153/Formatos/Cotizacion.rdlc index d782ee15b..6a5cf12c3 100644 --- a/Empresas/153/Formatos/Cotizacion.rdlc +++ b/Empresas/153/Formatos/Cotizacion.rdlc @@ -1217,7 +1217,8 @@ - CAMELIA 619 LIBERTAD HERMOSILLO + CAMELIA No.Ext: 619, Col: Libertad, +CP: 83130, Hermosillo,Sonora, México - - + + + - - -