From 966265d952097aac9fdfab632a8307c0fc2cdc9d Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Mon, 28 Apr 2025 07:06:58 -0700 Subject: [PATCH 01/18] cambios en modal del sobrerecibo --- App_Code/ClsNominas.vb | 22 ++++++++++++++++++ Nomina/Nomina.aspx | 53 ++++++++++++++++++++++++++++++++++++++++-- Nomina/Nomina.aspx.cs | 12 +++++++++- 3 files changed, 84 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 3a7756ca7..5037614ae 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3468,6 +3468,28 @@ Public Class ClsNominas End Try Return retorno End Function + + + Public Function GetFonacotSaldos(CveEmpresa As Integer, CvePersonal As Integer, CveFonacot As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetFonacotSaldos", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveFonacot", SqlDbType.Int).Value = CveFonacot + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los saldos Fonacot.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los saldos Fonacot.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + 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, Optional EsAcumulado As Integer = 0) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index e2b86eaf9..b9043eadc 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -7,7 +7,13 @@ #pnlIncapacidade .form-group.form-md-line-input > .select2-container { margin-top: 20px; } - + #C_UpModalConceptos > .modal-content{ + height: calc(100vh - 50px) !important; + } + #C_UpModalConceptos > .modal-content > .modal-body { + height: calc(100vh - 150px); + overflow-y: auto; + } .lnkMovotPermanente { width: 100%; color: #111; @@ -1364,6 +1370,49 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -5259,7 +5308,7 @@ + CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" data-heighterror="460"> <%----%> diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 4d27e3f08..08f2e55fc 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -4137,6 +4137,12 @@ public partial class Nomina_Nomina2 : ClsPaginas periodo = 20000101; LimpiarFonacot(); + using (ClsNominas ObjMovt = new ClsNominas()) + { + ObjMovt.GetFonacotSaldos(UsuarioActual.CveEmpresa, SRCvePersonal, CveFonacot); + GVFonacotDetalle.DataSource = ObjMovt.DtResultados; + GVFonacotDetalle.DataBind(); + } TxtFonValor.Text = importeFijo.ToString(); TxtFonImporteCredito.Text = importeCredito.ToString(); TxtFonPagosHechos.Text = pagosHechos.ToString(); @@ -5196,7 +5202,7 @@ public partial class Nomina_Nomina2 : ClsPaginas int finPercepciones = iniciotipe; column++; - TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column+2, false, false, PercborderColor); + TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, false, false, PercborderColor); TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, false, PercborderColor); //column++; //TitleRange(libro, "Permisos", filainicio + 3, column, filainicio + 3, column, false, false, colororangeblue); @@ -5353,6 +5359,10 @@ public partial class Nomina_Nomina2 : ClsPaginas column++; libro.Cell(Fila, column).Value = ""; + try{libro.Cell(Fila, column).Value = erow[string.Format("V_{0}", 6817)]; + libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\""; + } + catch (Exception) { } column++; libro.Cell(Fila, column).Value = erow["SalarioDiario"]; From afa9fee41538114fb1d879f425d6c341ec61970b Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 3 May 2025 12:28:16 -0700 Subject: [PATCH 02/18] =?UTF-8?q?-=20correcci=C3=B3n=20iddevolucionesiva?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContPAQi.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index ccbbfd441..66a22101d 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -468,7 +468,9 @@ Public Class ClsContPAQi StrSQL.Append(" EjercicioAsignado, PeriodoAsignado, IETUDeducible, IETUModificado,IETUAcreditable, IdConceptoIETU,UUID)") StrSQL.Append(" VALUES (@IdDevIVA, @RowVersion, @IdPoliza, @IdCuenta, ISNULL ((SELECT MAX (NumDev) FROM DevolucionesIVA WHERE IdPoliza = @IdPoliza), 0) + 1, @IdProveedor, @PorIVA, @SubTotal + @IVA, @SubTotal, @IVA, CASE WHEN @IVA > 0 THEN 1 ELSE 0 END, CASE WHEN @IVA = 0 THEN 1 ELSE 0 END,") StrSQL.Append(" 0, @Serie, @Folio, @Referencia, 0, 0, @SubTotal + @IVA, @RetIVA, @RetISR, @SubTotal + @IVA - @RetIVA - @RetISR,") - StrSQL.Append(" YEAR(@FechaMov), MONTH(@FechaMov),@SubTotal, 0,0,1,@UUID);") + StrSQL.Append(" YEAR(@FechaMov), MONTH(@FechaMov),@SubTotal, 0,0,1,@UUID); ") + + StrSQL.Append(" EXEC PA_UpdateId 'Id_DevolucionIVA'; ") StrSQL.Append(" END TRY") From 0492eb5756d25c848a4f5416a93a31e61665b316 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 5 May 2025 09:13:51 -0700 Subject: [PATCH 03/18] =?UTF-8?q?--=20activaci=C3=B3n=20de=20cancelaci?= =?UTF-8?q?=C3=B3n=20de=20venta/remisi=C3=B3n=20al=20cancelar=20el=20viaje?= =?UTF-8?q?!=20y=20si=20tiene=20pago=20se=20genera=20el=20ixc?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Modelos.vb | 4 +- Transportes/RepContratoDetalle.aspx.vb | 32 ++++----- Transportes/RepContratos.aspx.vb | 19 ----- Transportes/RepContratosCalendario.aspx | 39 ++++------- Transportes/RepContratosCalendario.aspx.vb | 80 ++++++---------------- 5 files changed, 55 insertions(+), 119 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 42765c4be..e0251b3d1 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4334,7 +4334,7 @@ Namespace Modelos Next End If - If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2) Then + If Not ErrorPrepoliza AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2) Then If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre = 2 Then ErrorList.Add(ObjConta.MensajePolizaDescuadre) @@ -5805,7 +5805,7 @@ Namespace Modelos End If 'CUANDO SE CANCELA, Y TIENE RELACIONADA UNA REMISIÓN, Y ESTA NO SE CANCELARÁ. DEBE DE HACER EN AUTOMÁTICO LOS MOVIMIENTOS AL ALMACEN DE ENTREGA POR ADELANTADO - Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count)) + Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (ListaRemisionesCancelar IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count)) 'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not (RealizarDevolucionAlmacen.Contiene(1, 2)) And RevivirRemisiones = False Then diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 272f108ad..43eae8823 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -624,24 +624,24 @@ Partial Class RepContratoDetalle End If End If - 'If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then - ' 'CveVentaRemision - ' Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" + If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then + 'CveVentaRemision + Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" - ' Dim Respuesta As New RespuestaFacturacion() - ' Dim CvePS As Integer = 907784 - ' Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero) + Dim Respuesta As New RespuestaFacturacion() + Dim CvePS As Integer = 907784 + Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero) - ' If Respuesta.CveVenta > 0 Then - ' CveVentaRemision = Respuesta.CveVenta - ' SerieFolioRemision = Respuesta.SerieFolio - ' ErrorProceso = False - ' SeGeneroRemision = True - ' Else - ' ErrorProceso = True - ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) - ' End If - 'End If + If Respuesta.CveVenta > 0 Then + CveVentaRemision = Respuesta.CveVenta + SerieFolioRemision = Respuesta.SerieFolio + ErrorProceso = False + SeGeneroRemision = True + Else + ErrorProceso = True + Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) + End If + End If If Not ErrorProceso Then ObjContratos.Commit() diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 744f1aa8b..a93d56ed6 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -165,22 +165,17 @@ Partial Class ListadoContratos Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) Dim fDestino = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", $"{CveContrato.ToString}.{ FileExtension}") - Try If File.Exists(fDestino) Then File.Delete(fDestino) End If - File.Move(fileItem.FileUrl, fDestino) - If Not File.Exists(fDestino) Then ErrorProceso = True End If - If ObjContratos.UpdateContratoArchivo(CveContrato, $"{CveContrato.ToString}.{ FileExtension}", UsuarioActual.CveEmpresa) Then ErrorProceso = False End If - Catch ex As Exception ErrorProceso = True End Try @@ -222,7 +217,6 @@ Partial Class ListadoContratos End If End If - If Not ErrorProceso Then ObjContratos.Commit() @@ -323,7 +317,6 @@ Partial Class ListadoContratos If Not Directory.Exists(folderContratosPath) Then Directory.CreateDirectory(folderContratosPath) End If - If Not Directory.Exists(Path.Combine(folderContratosPath, "Temp")) Then Directory.CreateDirectory(Path.Combine(folderContratosPath, "Temp")) End If @@ -334,26 +327,20 @@ Partial Class ListadoContratos Session("FileExtension") = FileExtension Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) - - ViewState("extencion") = FileExtension ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename) - File.Move(fileItem.FileUrl, ViewState("FUrl").ToString) LbArchivo.Text = tempArray(1) - Next UpModal.Update() RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") - End Sub #End Region #Region "G E N E R A R E M I S O N" - Private Function GeneraRemision(CveContrato As Integer, ObsPartida As String, Importe As Decimal, CvePS As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion Dim Respuesta As New RespuestaFacturacion() @@ -366,7 +353,6 @@ Partial Class ListadoContratos Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, DdlClientes.SelectedValue.ToEntero, CveMoneda, "Rem") If ObjFactura IsNot Nothing AndAlso ProcesoOK Then - ObjFactura.CveMoneda = CveMoneda ObjFactura.CveContrato = CveContrato ObjFactura.Observaciones = ObsPartida @@ -433,8 +419,6 @@ Partial Class ListadoContratos End Sub End Class - - #End Region Protected Sub LnkAgregarContrato_Click(sender As Object, e As EventArgs) @@ -442,7 +426,4 @@ Partial Class ListadoContratos RegistraScript("$('#ModalAgregar').modal({ backdrop: 'static', keyboard: false });") UpTitulos.Update() End Sub - - - End Class diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 6bc9d7074..aeccaaf1b 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -731,23 +731,23 @@ - + + + + + + + + + + + + <%----%> - - - - - - - - - - - - +
@@ -1236,11 +1236,7 @@ setTimeout(() => { // dateAxis.zoomToDates(new Date(anioI, mesI, diaI), new Date(anioF, mesF, diaF)); }, 1500); - } - - - var PrimeraCargaCalendario = true; var currentUpdateEvent; @@ -1257,20 +1253,15 @@ let anio = parseInt($('#<%=HidCurrentYear.ClientID%>').val()); Calendario(mes, anio); - }); } function selectDate(start, end, allDay) { } - function updateEvent(event, element, esCalendario = true) { - - + function updateEvent(event, element, esCalendario = true) { $('#<%=HdnCveContrato.ClientID%>').val(event.id); - $('#BtnCargaContratoCalendario').click(); - - + $('#BtnCargaContratoCalendario').click(); } function formatearFechaISO(fechaISO) { diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index ba4c43fb8..ad0243b62 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -5,6 +5,7 @@ Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones.ModExtensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms +Imports Modelos Imports Newtonsoft.Json.Linq Partial Class RepContratosCalendario @@ -301,19 +302,13 @@ Partial Class RepContratosCalendario Dim CvePadre As Integer = -1 For Each dRowUnidad As DataRow In DtUnidades.Rows - - Dim CveActivoFijo As Integer = dRowUnidad("CveActivoFijo").ToString.ToEntero Dim CodigoAF As String = dRowUnidad("Codigo").ToString 'Dim unidad As String = $"{dRowUnidad("Codigo").ToString}-{dRowUnidad("Descripcion").tostring}" - Dim SeEncontro As Boolean = False - Dim EsHijo As Boolean = False For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> '' AND TipoEstatus <> 3").Rows - Dim CveActivoFijoContrato As Integer = Row("CveAF").ToString.ToEntero - 'If CveActivoFijo = CveActivoFijoContrato Then ' str.AppendLine(String.Format("{0}", separator)) ' SeEncontro = True @@ -325,9 +320,6 @@ Partial Class RepContratosCalendario ' separator = "," ' encontrados = encontrados + 1 'End If - - - If CveActivoFijo = CveActivoFijoContrato Then str.AppendLine(String.Format("{0}", separator)) SeEncontro = True @@ -343,18 +335,15 @@ Partial Class RepContratosCalendario separator, Row("CveContrato").ToString, Row("NumeroContrato").ToString().Replace("\\", "\\\\").Replace("""", "\"""), Row("FechaInicial"), Row("FechaFinal"), 0, 100, unidad, duracion, ColorAleatorio(randomNumber), Row("CodigoAF").ToString, Row("CveContrato").ToString) ) End If - If Not EsHijo Then CvePadre = Row("CveContrato").ToString.ToEntero EsHijo = True End If - separator = "," encontrados = encontrados + 1 Else EsHijo = False End If - Next If Not SeEncontro Then @@ -365,18 +354,11 @@ Partial Class RepContratosCalendario str.AppendLine(String.Format("{{id: {1}, text: ""{2}"", start_date: ""{3}"", end_date: ""{4}"", parent: {5}, progress:{6}, open: true, unidad: ""{7}"",duracion: ""{8}"", color: ""{9}"",codigoaf: ""{10}"", hidden: true}} ", "", CveActivoFijo, -1, txtFechaF.Text.ToDate.ToString("yyyy/MM/dd HH:mm"), txtFechaF.Text.ToDate.ToString("yyyy/MM/dd HH:mm"), 0, 100, "", "", ColorAleatorio(randomNumber), CodigoAF)) separator = "," - End If - 'str.AppendLine(String.Format("}")) - Next - End If - - - str.AppendLine("];loadGant();") RegistraScript(str.ToString()) @@ -389,7 +371,6 @@ Partial Class RepContratosCalendario Private Function ColorAleatorio(randomNumber As Random) As String Dim listaColores As New List(Of String) - listaColores.Add("#94f35a") listaColores.Add("#1989a9") listaColores.Add("#5a3c98") @@ -436,10 +417,7 @@ Partial Class RepContratosCalendario listaColores.Add("#058106") listaColores.Add("#0485f2") listaColores.Add("#401685") - - Dim ranNumber As Integer = randomNumber.Next(0, listaColores.Count - 1) - Return listaColores(ranNumber) End Function @@ -591,8 +569,6 @@ Partial Class RepContratosCalendario DdlTipoAF.SelectedValueExist(DRow("CveTipoAF").ToString) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) - - If DRow("CveAF").ToString.ToEntero > 0 Then Dim ExisteItem As Boolean = False For Each item As ListItem In DdlAF.Items @@ -607,10 +583,7 @@ Partial Class RepContratosCalendario DdlAF.Items.Add(New ListItem(TmpItemText, $"{DRow("CveAF").ToString}")) End If End If - - DdlAF.SelectedValueExist(DRow("CveAF").ToString) - HidCveAF.Value = "-1" HidCveAFDes.Value = "" If DRow("CveAF").ToString.ToEntero > 0 Then @@ -619,10 +592,9 @@ Partial Class RepContratosCalendario End If TxtMotivoCambioUnidad.Text = "" DVMotivoCambioAF.Visible = False - - HypRemision.Text = DRow("RemisionSerieFolio").ToString HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={DRow("CveVentaRemision").ToString}" + HdnCveVentaRemision.Value = DRow("CveVentaRemision").ToString If DRow("RemisionSaldo").ToString.ToDecimal > 0 Then LblSaldo.Text = $"Saldo {DRow("RemisionSaldo").ToString.ToDecimal.ToString("###,###,###.00")}" @@ -642,15 +614,8 @@ Partial Class RepContratosCalendario Else Alert("Contrato no especificado", TipoMensaje.MsgAdvertencia) End If - - - - - - End Sub - Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim TieneError As Boolean = False Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1) @@ -662,6 +627,7 @@ Partial Class RepContratosCalendario Dim ObjContratos As New ClsContratos Dim objGenerales As New ClsGenerales(ObjContratos.IniciaTransacSQL()) + Dim ObjVentas As New ClsVentas(ObjContratos.IniciaTransacSQL()) Dim DTAgendadados As New DataTable If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then @@ -691,8 +657,22 @@ Partial Class RepContratosCalendario -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then - RegistraScript("$('#ModalActualizar').modal('hide');") - Alert("Actualizado Correctamente.") + + 'cancelar la venta. + If DdlEstatusContrato.SelectedValue = "52" Then 'cancelación de Fact/Rem + Dim CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC + Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing + Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, HdnCveVentaRemision.Value.ToEntero, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True) + If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then + resp = ObjFacturaCancelacion.CancelarFactura(0, CancelacionPagos:=CancelacionPagos, ValidarSAT:=False) + If resp.HuboError Then + TieneError = True + Else + RegistraScript("$('#ModalActualizar').modal('hide');") + Alert("Actualizado Correctamente.") + End If + End If + End If Else TieneError = True End If @@ -702,10 +682,9 @@ Partial Class RepContratosCalendario Else ObjContratos.Commit() End If - ObjContratos.Dispose() objGenerales.Dispose() - + ObjVentas.Dispose() UpTitulos.Update() CargaDatos() InicializaCalendar() @@ -726,20 +705,17 @@ Partial Class RepContratosCalendario TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy HH:mm:ss") TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy HH:mm:ss ") TxtMoneda.Text = GvRow.DataKey("Moneda") - TxtAnticipo.Text = GvRow.DataKey("ImporteMin") TxtDolares.Text = GvRow.DataKey("Importe") 'Requeridos - DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer")) DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) chkSegundoChofer.Checked = If(NumChoferes = 2, True, False) - DdlEstatusContrato.SelectedValueExist(GvRow.DataKey("CveContratosEstatus")) DdlSubProyectoModal.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) - DdlTipoAF.SelectedValueExist(GvRow.DataKey("CveTipoAF")) DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) + HdnCveVentaRemision.Value = GvRow.DataKey("CveVentaRemision") If GvRow.DataKey("CveAF").ToEntero > 0 Then Dim ExisteItem As Boolean = False @@ -749,7 +725,6 @@ Partial Class RepContratosCalendario Exit For End If Next - If Not ExisteItem Then Dim TmpItemText As String = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CodDesc", $" EstadoActivoFijo= 'Activo' AND CveActivoFijo = {GvRow.DataKey("CveAF")}") DdlAF.Items.Add(New ListItem(TmpItemText, $"{GvRow.DataKey("CveAF")}")) @@ -757,7 +732,6 @@ Partial Class RepContratosCalendario End If DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) - HidCveAF.Value = "-1" HidCveAFDes.Value = "" If GvRow.DataKey("CveAF").ToEntero > 0 Then @@ -766,17 +740,13 @@ Partial Class RepContratosCalendario End If TxtMotivoCambioUnidad.Text = "" DVMotivoCambioAF.Visible = False - - HypRemision.Text = GvRow.DataKey("RemisionSerieFolio") HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={GvRow.DataKey("CveVentaRemision")}" - If GvRow.DataKey("RemisionSaldo").ToDecimal > 0 Then LblSaldo.Text = $"Saldo {GvRow.DataKey("RemisionSaldo").ToDecimal.ToString("###,###,###.00")}" Else LblSaldo.Text = "" End If - CveContrato = GvRow.DataKey("CveContrato").ToEntero OcultarMostrarSegundoChofer() @@ -790,19 +760,17 @@ Partial Class RepContratosCalendario If HidModClienteNombre.Value = "" Then HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") End If - TxtMotivoCambioUnidad.Text = "" DVMotivoCambioAF.Visible = False DdlClientes.SelectedText = HidModClienteNombre.Value DdlClientes.SelectedValue = HidModCveCliente.Value DdlClientes.txtText.Value = HidModClienteNombre.Value DdlClientes.txtValue.Value = HidModCveCliente.Value - chkSegundoChofer.Checked = If(HidNumChoferes.Value.ToEntero = 2, True, False) OcultarMostrarSegundoChofer() HypRemision.Text = HidRemisionSerieFolio.Value - HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={HidCveVentaRemision.Value}" + HypRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={HdnCveVentaRemision.Value}" If HidRemisionSaldo.Value.ToDecimal > 0 Then LblSaldo.Text = $"Saldo {HidRemisionSaldo.Value.ToDecimal.ToString("###,###,###.00")}" Else @@ -884,11 +852,9 @@ Partial Class RepContratosCalendario Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click Dim SubProyecto As String = DdlSubProyectos.SelectedItem.Text - Dim SbFiltros As New StringBuilder() SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|") SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) - GvContratos.ExportToExcelGembox($"Reporte_Contratos_{NowADS.ToString("yyyyMMddHHmmss")}", UsuarioActual, "Reporte Contratos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) End Sub @@ -960,6 +926,4 @@ Partial Class RepContratosCalendario CargaCronograma(DdlTipoVistaCalendario.SelectedValue.ToEntero) End Sub - - End Class From 2c04a060648ad6065b905f7d56c964d1ac2082e6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 5 May 2025 12:01:57 -0700 Subject: [PATCH 04/18] Nombre de usuario en corte --- Compras/PopUpVerFactura.aspx.vb | 3 ++- Ventas/CatAutorizacionLimites.aspx.vb | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index b518789fa..f79289734 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1741,6 +1741,7 @@ Partial Class PopUpVerFactura If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero() + Nombre = ObjVta.DtResultados.FiltroPrimeroValor("UsuarioNombre").ToString End If End Using End If @@ -1761,7 +1762,7 @@ Partial Class PopUpVerFactura If RowInfo IsNot Nothing Then Fecha = RowInfo("FechaInicial").ToString - Nombre = RowInfo("Nombre").ToString + End If End If diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index e6610d386..9b091d937 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -88,8 +88,11 @@ Partial Class Ventas_CatAutorizacionLimites FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) + Dim CveUsuarioConsulta As Integer = UsuarioActual.CveUsuario + If UsuarioActual.Empresa.Funcionalidad(595) = "3" Then CveUsuarioConsulta = -1 + Dim ObjGral As New ClsVentas - If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=CveUsuarioConsulta) Then GvDatos.DataSource = ObjGral.DtResultados End If ObjGral.Dispose() From 1bc5a00142bf74ba60c73c5757564346c82ff518 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 5 May 2025 14:06:42 -0700 Subject: [PATCH 05/18] -- cambio a filtrar por la fecha de salida --- Transportes/RepContratos.aspx.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index a93d56ed6..e62ea28c1 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -73,8 +73,7 @@ Partial Class ListadoContratos Private Sub CargaDatos() Dim ObjContratos As New ClsContratos - If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, - FechaInicioIngreso:=txtFechaI.Text.ToDate, FechaFinIngreso:=txtFechaF.Text.ToDate) Then + If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then GvContratos.DataSource = ObjContratos.DtResultados DtDatos = ObjContratos.DtResultados.Copy From 4acf5fda67cd5d4c55e26c03eeaf698cb6703cbf Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 5 May 2025 14:34:17 -0700 Subject: [PATCH 06/18] - --- Transportes/RepContratos.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index e62ea28c1..38a8034ba 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -74,7 +74,8 @@ Partial Class ListadoContratos Dim ObjContratos As New ClsContratos If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then - GvContratos.DataSource = ObjContratos.DtResultados + + GvContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"FechaInicial >= '{txtFechaI.Text.ToDate.ToString("yyyy/MM/dd")}'", "FechaInicial") DtDatos = ObjContratos.DtResultados.Copy End If From 1a462e1da6a6afa75560a242a565979fb9971a1a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 5 May 2025 21:25:55 -0700 Subject: [PATCH 07/18] - --- App_Code/ClsContabilidad.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8f709f32e..944f482ba 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5867,7 +5867,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer) As Boolean + Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer, PorcentajeImpuesto As Decimal, CveColectiva As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGlobalesAdd") @@ -5877,6 +5877,8 @@ Public Class ClsContabilidad .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@TipoGlobal", SqlDbType.Int).Value = TipoGlobal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva End With Try From 563de5b37fb1be9fb79c1cfc191e70a9e36f3872 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 5 May 2025 22:18:34 -0700 Subject: [PATCH 08/18] Correcion ClsContPaqi MovmientosImpuestos, correcion RH cuentas bancarias, formato Entrada 13 --- App_Code/ClsContPAQi.vb | 2 +- App_Code/ClsInventarios.vb | 3 +++ Compras/PopUpVerFactura.aspx.vb | 16 ++++++++++++---- Compras/RepComplementoPago.aspx | 6 +++--- Compras/RepComplementoPago.aspx.vb | 6 +++--- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 11 +++++------ 7 files changed, 28 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 66a22101d..e905fcd03 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -584,7 +584,7 @@ Public Class ClsContPAQi VALUES (@IdMovDev, @RowVersion, @IdPoliza, ISNULL ((SELECT MAX (NumMovto) FROM MovimientosImpuestos WHERE IdPoliza = @IdPoliza), 0) + 1, @IdPersona, 0,YEAR(@FechaMov), MONTH(@FechaMov), @IdCuenta, 0, 1, 0, @Serie, @Folio, @Referencia, @UUID, 2, 0, 1, @TipoMovimiento, 1, @Impuesto, 2,'', @TasaOCuota, @SubTotal, - @ImpImpuesto, @ImpImpuesto,0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0, + @ImpImpuesto, (@ImpImpuesto + @SubTotal),0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0, @ConceptoIVA, @SubconceptoIVA, 0, @ProporcionDIOT, @DeducibleDIOT); EXEC PA_UpdateId 'Id_MovimientoImpuesto'; diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e70e86699..0b28c1fba 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -94,6 +94,8 @@ Public Class ClsInventarios Public Property CveOrdenCompra As Integer Public Property CveOrdenCompraLiga As Integer Public Property FolioOC As String + Public Property DescripcionOC As String + Public Property CvePS As Integer Public Property CveEntregaForanea As Integer Public Property CvePaqueteriaGuia As Integer @@ -852,6 +854,7 @@ Public Class ClsInventarios CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero FolioOC = dr("FolioOC").ToString + DescripcionOC = dr("DescripcionOC").ToString FolioInterno = dr("VentaAnticipo").ToString CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index f79289734..0c6535bcd 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2888,6 +2888,7 @@ Partial Class PopUpVerFactura Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente") + Dim Ruta As String = "" Dim Supervisor As String = "" @@ -2911,6 +2912,8 @@ Partial Class PopUpVerFactura Dim CveMoneda As Integer = ObjInventarios.CveMoneda Dim FolioVenta As String = ObjInventarios.FolioVenta Dim FolioOC As String = ObjInventarios.FolioOC + Dim DescripcionOC As String = ObjInventarios.DescripcionOC + Dim FolioInterno As String = ObjInventarios.FolioInterno Dim CveCliente As Integer = ObjInventarios.CveCliente @@ -3091,7 +3094,7 @@ Partial Class PopUpVerFactura PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, - Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente) + Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente, DescripcionOC:=DescripcionOC) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -3110,7 +3113,8 @@ Partial Class PopUpVerFactura EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "", - Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "") + Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "", + Optional DescripcionOC As String = "") Select Case CveConcepto @@ -3159,7 +3163,7 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(4, 145) Then params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If - If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then + If UsuarioActual.CveEmpresa.Contiene(119, 199, 201, 13) Then params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) @@ -3172,12 +3176,16 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If + If UsuarioActual.CveEmpresa.Contiene(13) Then + params.Add(New ReportParameter("DescripcionOC", DescripcionOC)) + End If + Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN" If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE" If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201, 13) Then params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", ConceptoFormato)) params.Add(New ReportParameter("Almacen", Almacen)) diff --git a/Compras/RepComplementoPago.aspx b/Compras/RepComplementoPago.aspx index 2eeab0a77..121bcdb3d 100644 --- a/Compras/RepComplementoPago.aspx +++ b/Compras/RepComplementoPago.aspx @@ -136,9 +136,9 @@ <%--0--%> - + <%--1--%> - + <%--2--%> @@ -149,7 +149,7 @@ <%--3--%> <%--4--%> - + <%--5--%> <%--6--%> diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index cf4bf2ab6..ed3cd252a 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -105,9 +105,9 @@ Partial Class Compras_RepComplementoPago GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked If ChkFolioFiscal.Checked Then - GvDatos.Columns(0).ItemStyle.Width = 15% + 'GvDatos.Columns(0).ItemStyle.Width = 15% Else - GvDatos.Columns(0).ItemStyle.Width = 30% + 'GvDatos.Columns(0).ItemStyle.Width = 30% End If UpDatos.Update() @@ -240,7 +240,7 @@ Partial Class Compras_RepComplementoPago SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) - GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) + GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Complementos Pago de Compras", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 1d77e1cf1..00b264ed3 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -5133,7 +5133,7 @@
- +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index dfcb4d6bc..b812d44a9 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -3447,7 +3447,6 @@ Partial Class RH_Personal Row("CLABE") = TxtCLABECB.Text.Trim Row("SWIFT") = TxtSWIFT.Text Row("Plaza") = TxtPlaza.Text - Row("Cuenta") = TxtNumeroSucursal.Text Row("CIE") = TxtConvenioCIE.Text Row("Referencia") = TxtReferenciaC.Text Row("RefCrediProveedor") = TxtRefCrediProveedor.Text @@ -8455,13 +8454,13 @@ Partial Class RH_Personal 'End Sub - Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs) + 'Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs) - 'If ChkEstatusPagoE.Checked Then - ' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia) - 'End If + ' 'If ChkEstatusPagoE.Checked Then + ' ' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia) + ' 'End If - End Sub + 'End Sub End Class From 6c440db08cfb681b91d8fc0df8450f21e915b1b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 05:56:43 -0700 Subject: [PATCH 09/18] =?UTF-8?q?--=20mandar=20parametro=20de=20cr=C3=A9di?= =?UTF-8?q?to/contado=20en=20concepto=204,=20en=20prepolizasdetalle,=20cve?= =?UTF-8?q?colectiva?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f1a0e6c53..4e80b42c6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16054,6 +16054,7 @@ Partial Class Ventas Dim ConceptoContableAplicar As Integer = 4 Dim CveVentaAplicar As Integer = ObjFactura.CveVenta Dim CveVentaAmortizacionAplicar As Integer = -1 + Dim CondicionesPago As Integer = RBLPago.SelectedValue.ToEntero If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then ConceptoContableAplicar = 11 @@ -16102,7 +16103,7 @@ Partial Class Ventas Next End If End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then ErrorPrepoliza = True Else ViewState("SeGuardoPrePoliza") = True From 89fdba710ecacbcf36a2d28612584545c893b52b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:28 -0700 Subject: [PATCH 10/18] -- monedas en ixc --- Ventas/ClientesAbonar.aspx.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 216ca1ed8..11578c1be 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -815,11 +815,16 @@ Partial Class Ventas_ClientesAbonar If DtSaldo IsNot Nothing AndAlso DtSaldo.Rows.Count = 1 Then Dim ImporteRef As Decimal = DtSaldo.SUM("Saldo", $"CveIE={DdlIngreso.SelectedValue.ToEntero()}") + Dim tCveMonedaIE As Integer = DtSaldo.FiltroPrimeroValor("CveMoneda", "").ToEntero Dim ImporteAbonar As Decimal = 0 - + Dim TC As Decimal = 1 + 'comparativo. For Each gvr As GridViewRow In GvCxC.Rows If gvr.FCCheckBox("Chk").Checked Then - ImporteAbonar += gvr.FCTextBox("TxtAbonar").Text.ToDecimal() + TC = 1 + If tCveMonedaIE = 1 AndAlso gvr.DataKey("CveMoneda") = "2" Then TC = TxtTC.Text.ToDecimal + If tCveMonedaIE = 2 AndAlso gvr.DataKey("CveMoneda") = "1" Then TC = 1D / TxtTC.Text.ToDecimal + ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TC).RoundSQL(2) End If Next ImporteAbonar += TxtAnticipo.Text.ToDecimal() @@ -1067,10 +1072,10 @@ Partial Class Ventas_ClientesAbonar Pago.FechaDocumentoRelacionado = FechaIngreso Pago.CveClientePago = CveCliente End If - 'Tipos de cambio If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos Pago.TCPago = TxtTC.Text.ToDecimal + Pago.ImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES Pago.TCPago = If(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal) ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES From 92f29627a988c181dce54c3efb040f5a125e72cc Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:44 -0700 Subject: [PATCH 11/18] -- globales con %Imp y colectiva --- Contabilidad/CatCuentasAsignaciones.aspx | 22 +++++++-- Contabilidad/CatCuentasAsignaciones.aspx.vb | 52 +++++++++++++++++++-- 2 files changed, 66 insertions(+), 8 deletions(-) diff --git a/Contabilidad/CatCuentasAsignaciones.aspx b/Contabilidad/CatCuentasAsignaciones.aspx index 01910855b..e64e0933e 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx +++ b/Contabilidad/CatCuentasAsignaciones.aspx @@ -103,7 +103,7 @@
@@ -111,7 +111,7 @@ - + @@ -238,7 +238,7 @@
- +
@@ -261,7 +261,21 @@
- + +
+
+
+ + +
+
+
+
+ + + +
+
diff --git a/Contabilidad/CatCuentasAsignaciones.aspx.vb b/Contabilidad/CatCuentasAsignaciones.aspx.vb index f708e4802..9096f48eb 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad/CatCuentasAsignaciones.aspx.vb @@ -203,7 +203,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones RegistraScript("$('#ModalCat').modal();") End If - End Sub Private Sub RecargaConcepto(CveConceptoContable As Integer) @@ -268,10 +267,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjG As New ClsGenerales If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then DdlColectivas.DataSource = ObjG.DtResultados + DdlGlobalColectiva.DataSource = ObjG.DtResultados End If ObjG.Dispose() DdlColectivas.DataBind() + DdlGlobalColectiva.DataBind() DdlColectivas.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) If OpAgregar Then DdlColectivas.Enabled = True @@ -303,8 +305,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub EliminarRowGlobal(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjConta As New ClsContabilidad - If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveConceptoContable").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then - Alert("se elimino correctamente") + If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveCuentaGlobal").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then + Alert("Se elimino correctamente") End If CargaDatosSistema() UpDatos.Update() @@ -401,7 +403,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ErrorString As String = "" Dim ObjConta As New ClsContabilidad - If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtGlobalPorcentajeIVA.Text.ToDecimal, DdlGlobalColectiva.SelectedValue.ToEntero) Then ErrorString = "Error al agregar" End If ObjConta.Dispose() @@ -432,4 +434,46 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ObjConta.Dispose() DdlCuentaGlobal.DataBind() End Sub + + Protected Sub DdlConceptoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs) + RecargaConceptoGlobal(DdlConceptoGlobal.SelectedValue.ToEntero) + End Sub + + Private Sub RecargaConceptoGlobal(CveConceptoContable As Integer) + Dim Dr As DataRow = GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("") + + If Dr IsNot Nothing Then + + 'divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString) + 'divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString) + 'divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString) + divGlobalPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString) + 'divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString) + 'divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString) + 'divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString) + 'divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) + 'divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) + 'divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString) + divGlobalColectiva.Visible = Boolean.Parse(Dr("AplicaColectiva").ToString) + + If Dr("AplicaColectiva").ToString = "True" Then + Dim dtt As DataTable = Nothing + Dim ObjG As New ClsGenerales + If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt = ObjG.DtResultados + End If + If ObjG.GetColectivas(0, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt.Merge(ObjG.DtResultados) + End If + DdlGlobalColectiva.DataSource = dtt + ObjG.Dispose() + + DdlGlobalColectiva.DataBind() + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Enabled = True + + End If + End If + + End Sub End Class From 82d05bbe512afbd940021adb794cf8ac942ba1bf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:54 -0700 Subject: [PATCH 12/18] - --- Inventarios/EntradasSalidas.aspx.vb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index e8976f18d..56cf628f4 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2139,14 +2139,12 @@ Partial Class Inventarios_EntradasSalidas Dim CveClasificacion As Integer = -1 Select Case DdlConcepto.SelectedValue.ToEntero Case 2, 32 + EsContabilizable = True + Case 28 CveConceptoContable = 78 EsContabilizable = True - Case 28, 31 + Case 31 CveConceptoContable = 290 - If DdlConcepto.SelectedValue.ToEntero = 28 Then - ''cuando es 28, es otros ingresos.78 - CveConceptoContable = 78 - End If EsContabilizable = True Case 30 CveConceptoContable = 181 From 4e6e92d9e4ef34eeab8cc833a1da249df94408a2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 6 May 2025 11:03:39 -0700 Subject: [PATCH 13/18] Compras no actualizar total en compra nueva con xml --- Compras/Compras.aspx.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index cd5dbd416..45306e38b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1362,6 +1362,8 @@ Partial Class Compras_Compras Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + + If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") 'ImgBtnBuscarOC.Attributes.Add("data-placement", "top") @@ -17609,10 +17611,15 @@ Partial Class Compras_Compras If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True If ActualizaTotales And (UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0) Then - TxtTotal.Text = Total.ToString.FormatoNumero() - If CveCompra > 0 AndAlso CveCompraFactura = 0 Then + + If Not (CveFactura > 0 And CveCompra <= 0) Then + TxtTotal.Text = Total.ToString.FormatoNumero() + ElseIf CveCompra > 0 AndAlso CveCompraFactura = 0 Then 'Compra manual que ya estaba registrada + TxtTotal.Text = Total.ToString.FormatoNumero() TxtIVA.Text = IVA.ToString.FormatoNumero() End If + + End If Else From 86841f44d94d580696b9179db2dd0b6ef1987d73 Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Tue, 6 May 2025 14:33:53 -0700 Subject: [PATCH 14/18] generacion pdf y conceptos --- App_Code/ClsNominas.vb | 2 +- App_Code/ClsPaginas.vb | 20 ++++++++++---------- Nomina/CatSatConceptos.aspx.vb | 2 +- Nomina/ConceptoNomina.aspx.cs | 2 +- Nomina/Nomina.aspx.cs | 33 ++++++++++++++++++++++----------- RH/Personal.aspx.vb | 2 +- asmx/WS_PuntoVenta.asmx | 2 +- 7 files changed, 37 insertions(+), 26 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5037614ae..833a4b715 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1785,7 +1785,7 @@ Public Class ClsNominas #End Region #Region "ClsNominasSaatConceptos" - Public Function GetConceptos() As Boolean + Public Function GetConceptoSAT() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_Sat_ConceptosGet") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a89c07bd9..eab32a2b1 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -918,7 +918,7 @@ Public Class ClsPaginas Dim AppNombre As String = "GlobalDTNomSatConceptos" If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then Using ObjNom As New ClsNominas() - If ObjNom.GetConceptos() Then Application(AppNombre) = ObjNom.DtResultados + If ObjNom.GetConceptoSAT() Then Application(AppNombre) = ObjNom.DtResultados End Using End If GlobalDTNomSatConceptos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) @@ -8326,7 +8326,7 @@ Public Class ClsPaginas End Function #End Region #Region "PDF NOMINA" - Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte() + Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String) As Byte() Dim Retorno As Byte() = Nothing Using ObjNomina As New ClsNominas Using ObjPersonal As New ClsRH @@ -8344,7 +8344,7 @@ Public Class ClsPaginas Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable Dim Ruta As String = UsuarioActual.Empresa.Ruta - Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" + Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }-{ObjNomina.Folio}.xml" Dim FechaEmision, FechaCertificacion As DateTime Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String FolioFiscal = "" @@ -8468,12 +8468,12 @@ Public Class ClsPaginas Dim ajusteindemnizacion As Double = 0 'PERCECIONES - DEDUCCIONES If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - Dim filtrop As String = " AND CveSistema NOT IN(10,11,32)" - Dim friltrod As String = " AND CveSistema <>47" - If indemnizacion Then - filtrop = "AND CveSistema IN(10,11,32)" - friltrod = " AND CveSistema =47" - End If + Dim filtrop As String = "" '" AND CveSistema NOT IN(10,11,32)" + Dim friltrod As String = "" '" AND CveSistema <>47" + 'If indemnizacion Then + ' filtrop = "AND CveSistema IN(10,11,32)" + ' friltrod = " AND CveSistema =47" + 'End If DTPercepciones = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND ((Importe <>0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1)) {filtrop}") DTDeducciones = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND ((Importe >0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1) ) {friltrod}") DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND (( Importe >0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1) ){friltrod}") @@ -8535,7 +8535,7 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("Cantidad", "1")) RptParametro.Add(New ReportParameter("Unidad", "ACT")) RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA")) - RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString())) + RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString())) RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDecimal.Texto2Letras)) RptParametro.Add(New ReportParameter("Clave", "84111505")) cQr = GeneraQRSAT(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal) diff --git a/Nomina/CatSatConceptos.aspx.vb b/Nomina/CatSatConceptos.aspx.vb index c2064fd5e..b4b2cfb60 100644 --- a/Nomina/CatSatConceptos.aspx.vb +++ b/Nomina/CatSatConceptos.aspx.vb @@ -16,7 +16,7 @@ Partial Class Nom_CatSatConceptos End Sub Public Sub CargaDatos() - Dim ObjConceptos As New ClsNominas + Dim GetConceptoSAT As New ClsNominas If ObjConceptos.GetConceptos() Then ViewState("DTConceptos") = ObjConceptos.DtResultados GlobalDTNomSatConceptos = ObjConceptos.DtResultados diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index dd21edd51..53608c96c 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -265,7 +265,7 @@ public partial class Nomina_CatConcepto : ClsPaginas { using (ClsNominas objnom = new ClsNominas()) { - objnom.GetConceptos(); + objnom.GetConceptoSAT(); DdlConceptoSAT.DataSource = objnom.DtResultados; } diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 08f2e55fc..6aa4f1cde 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -236,6 +236,16 @@ public partial class Nomina_Nomina2 : ClsPaginas set { ViewState["CveTipoTrabajador"] = value; } } + protected int posconceptospersonalizar + { + get + { + if (ViewState["posconceptospersonalizar"] == null) { return 0; } + else { return ViewState["posconceptospersonalizar"].ToString().ToEntero(); } + } + + set { ViewState["posconceptospersonalizar"] = value; } + } protected int CvePeriodoSeleccionado { @@ -4947,12 +4957,13 @@ public partial class Nomina_Nomina2 : ClsPaginas addcoltopersonalizar("Sueldo diario", "0", "", ""); addcoltopersonalizar("Dias Pen Pago", "0", "", ""); - + int pos = 4; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND EsFormula =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()); + pos = pos + 1; } } @@ -4971,7 +4982,7 @@ public partial class Nomina_Nomina2 : ClsPaginas //addcoltopersonalizar("Deducciones", "1", "Deducciones", ""); addcoltopersonalizar("Neto a Pagar", "1", "Total", ""); - + posconceptospersonalizar = pos; //foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 AND EsFormula =0").Rows)//EsFormula =0 //{ @@ -5013,7 +5024,7 @@ public partial class Nomina_Nomina2 : ClsPaginas drorden["Tipo"] = "0"; drorden["ColumnaDB"] = DdlMOPXColumna.SelectedItem.Value; //drorden["TipoDB"] = DdlMOTipo.SelectedItem.Value; - DtNomPersonalizarxls.Rows.Add(drorden); + DtNomPersonalizarxls.Rows.InsertAt(drorden, posconceptospersonalizar); } GvPersonalizarExcel.DataSource = DtNomPersonalizarxls; @@ -5109,7 +5120,7 @@ public partial class Nomina_Nomina2 : ClsPaginas 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 dtConceptos = this.dtConceptos.FiltraParametros(""); DataTable dtFiltrado = dtConceptos.Clone(); // Clonar la estructura del DataTable foreach (GridViewRow row in GvPersonalizarExcel.Rows) @@ -9578,14 +9589,14 @@ public partial class Nomina_Nomina2 : ClsPaginas } } pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); - if (confiniquito) - { - List pdfs = new List(); - pdfs.Add(pdf); - pdfs.Add(GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta, true)); - pdf = MergeFiles(pdfs); + //if (confiniquito) + //{ + // List pdfs = new List(); + // pdfs.Add(pdf); + // pdfs.Add(GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta, true)); + // pdf = MergeFiles(pdfs); - } + //} } else { diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index aa8effabe..db6b831f2 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -912,7 +912,7 @@ Partial Class RH_Personal End If LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158)) Using objno As New ClsNominas - objno.GetConceptos() + objno.GetConceptos(UsuarioActual.CveEmpresa) dtNomConceptos = objno.DtResultados objno.GetSubTipoPeriodo(UsuarioActual.CveEmpresa) dtSubTipoPeriodo = objno.DtResultados diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx index 9cb46d77c..9b420eaeb 100644 --- a/asmx/WS_PuntoVenta.asmx +++ b/asmx/WS_PuntoVenta.asmx @@ -1397,7 +1397,7 @@ Public Class WS_PuntoVenta Dim objInventario As New ClsInventarios Dim Respuesta As New RespuestaWS - If objInventario.GetConceptos() Then + If objInventario.GetConceptoSAT() Then Respuesta.Datos = objInventario.DtResultados '.FiltraParametros(String.Format("CveVendedor={0}", CveEmpresa)) Respuesta.Datos.TableName = "Inv_Conceptos" Respuesta.HuboError = False From b42c7366b367aa9c9121f5f6260cf4af93d335b7 Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Tue, 6 May 2025 14:42:42 -0700 Subject: [PATCH 15/18] cotizacion --- Empresas/141/Formatos/Cotizacion.rdlc | 3921 +------------------------ 1 file changed, 132 insertions(+), 3789 deletions(-) diff --git a/Empresas/141/Formatos/Cotizacion.rdlc b/Empresas/141/Formatos/Cotizacion.rdlc index a770ec337..a3d62ba51 100644 --- a/Empresas/141/Formatos/Cotizacion.rdlc +++ b/Empresas/141/Formatos/Cotizacion.rdlc @@ -1906,47 +1906,43 @@ - Sonora + Sonora: - : Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Obregón IV (644) 688-3937 -  Navojoa (642) 422-9852 ʹ + Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - Sinaloa + Sinaloa: - : Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 – Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - + Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - @@ -1957,18 +1953,16 @@ 7pt Bold None - #000000 - : Tijuana (664) 622-5221 ʹ- Tijuana II (664) 626-2615 - Tijuana III (664) 906-0917 - Tijuana IV (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 – Tecate (665) 5212080 - Ensenada (646) 172-4075 ʹ Ensenada II (646) 176-2703 - + : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - @@ -1979,18 +1973,16 @@ 7pt Bold None - #000000 - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 + : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 @@ -2046,6 +2038,21 @@ 2pt + + Embedded + ID5 + FitProportional + 11.02339cm + 0.17151cm + 0.96488cm + 3.75909cm + 17 + + + + true true @@ -2073,7 +2080,103 @@ 0.19008cm 0.40655cm 12.88812cm - 17 + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID4 + FitProportional + 11.02339cm + 4.34941cm + 0.91769cm + 3.03541cm + 19 + + + + + + Embedded + ID1 + FitProportional + 11.02339cm + 7.56121cm + 0.97656cm + 4.16281cm + 20 + + + + + + Embedded + ID6 + FitProportional + 11.02339cm + 11.90634cm + 1.01184cm + 3.76809cm + 21 + + + + + + Embedded + ID3 + FitProportional + 11.37021cm + 15.67443cm + 0.93046cm + 5.37042cm + 22 + + + + + + true + true + + + + + DESCARGA NUESTRA APLICACIÓN + + + + + + + Textbox60 + 10.83195cm + 15.67443cm + 0.50299cm + 5.42547cm + 23 @@ -2127,7 +2230,7 @@ 17.09066cm 0.64028cm 3.90165cm - 18 + 24 @@ -2272,7 +2375,7 @@ 0.16383cm 2.44366cm 15.5106cm - 19 + 25 @@ -2307,7 +2410,7 @@ 6.24049in 0.21875in 0.94607in - 20 + 26 @@ -2342,7 +2445,7 @@ 6.24048in 0.21875in 0.94607in - 21 + 27 @@ -2377,7 +2480,7 @@ 6.24048in 0.21875in 0.94607in - 22 + 28 @@ -2412,7 +2515,7 @@ 6.24048in 0.21875in 0.94607in - 23 + 29 @@ -2448,7 +2551,7 @@ 6.24048in 0.21875in 0.94607in - 24 + 30 @@ -2484,7 +2587,7 @@ 7.18656in 0.21875in 0.98426in - 25 + 31 @@ -2519,7 +2622,7 @@ 7.18656in 0.20486in 0.98425in - 26 + 32 @@ -2554,7 +2657,7 @@ 7.18656in 0.19899in 0.98425in - 27 + 33 @@ -2590,7 +2693,7 @@ 7.18656in 0.19284in 0.98425in - 28 + 34 @@ -2626,7 +2729,7 @@ 7.18656in 0.19596in 0.98425in - 29 + 35 @@ -2661,7 +2764,7 @@ 4.32565cm 0.82021cm 7.93893cm - 30 + 36 @@ -2691,7 +2794,7 @@ 0.19009cm 0.05496cm 20.88652cm - 31 + 37 @@ -2703,72 +2806,6 @@ 2pt - - true - true - - - - - DESCARGA NUESTRA APLICACIÓN - - - - - - - Textbox60 - 10.83195cm - 15.67443cm - 0.50299cm - 5.42547cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID3 - FitProportional - 11.37021cm - 15.67443cm - 0.93046cm - 5.37042cm - 33 - - - - - - Embedded - logofacturas3 - FitProportional - 11.05641cm - 0.12912cm - 0.80243cm - 15.36892cm - 34 - - - - 15.93202cm