From b198fdfb8173f47d5a513b021e706d7982c3edec Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 12:24:53 -0700 Subject: [PATCH 1/5] --Proceso para habilitar aplicacion de anticipos --- Ventas/Ventas.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e39c4fe68..fd44294b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3641,7 +3641,7 @@ Partial Class Ventas End If If UsuarioActual.Empresa.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If InicializaDevolucionAlmacen() @@ -5489,7 +5489,7 @@ Partial Class Ventas End If If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) Else ImgAntiPend.Visible = True End If @@ -5602,7 +5602,7 @@ Partial Class Ventas If DbRowVenta("Saldo").ToString().ToDouble < 0.01 Then If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) Else ImgAntiPend.Visible = True End If @@ -17287,7 +17287,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If Else GVAnticipos.DataSource = Nothing @@ -19037,7 +19037,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If If ImgAntiPend.Visible Then @@ -19085,7 +19085,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If If ImgAntiPend.Visible Then @@ -33098,7 +33098,7 @@ Partial Class Ventas If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If Else Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}") From dae8be91a448a207e0e3a0d568a75599f4d34604 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 19:39:58 -0700 Subject: [PATCH 2/5] --FIX tc --- Bancos/ProveedoresAbonar.aspx.vb | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 00aed620b..288fe1d16 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -863,8 +863,19 @@ Partial Class Bancos_ProveedoresAbonar Pago.TCPago = TxtTC.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTC.Text.ToDecimal) End If - If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal - If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTC.Text.ToDecimal + + If ChkPagarPesos.Checked Then + If CompraActual.CveMoneda = 1 Then + Pago.TCCambioMoneda = 1 + Else + Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal + End If + End If + + If ChkPagarDolares.Checked Then + Pago.TCCambioMoneda = TxtTC.Text.ToDecimal + End If + If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal From 30a493fc0aeb504cc012d2dea50f2ed762aa04f4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 19:40:16 -0700 Subject: [PATCH 3/5] --ocultar solicitud de anticipo en ventas --- Ventas/Ventas.aspx.vb | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fd44294b9..48af166ee 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17219,7 +17219,7 @@ Partial Class Ventas Private Sub CargaAnticipos(CveCliente As Integer) Dim CargaAnticipos As Boolean = True If UsuarioActual.CveEmpresa = 189 Then - CargaAnticipos = False + CargaAnticipos = UsuarioActual.TienePermisoProceso(406) End If HdnTieneAnticipos.Value = "0" If CveCliente > 0 AndAlso CargaAnticipos Then @@ -17463,11 +17463,11 @@ Partial Class Ventas End If If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then - If e.Row.DBCampo("Tipo").ToString().Contiene("Ant", "IxC") AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then - e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False - e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ToolTip = "Anticipo Bloqueado" - e.Row.FCLinkButton("LnkSolicitarActivarAnticipo").Visible = True - End If + 'If e.Row.DBCampo("Tipo").ToString().Contiene("Ant", "IxC") AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then + ' e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False + ' e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ToolTip = "Anticipo Bloqueado" + ' e.Row.FCLinkButton("LnkSolicitarActivarAnticipo").Visible = True + 'End If End If If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = DdlMoneda.SelectedValue.ToEntero() Then @@ -40467,6 +40467,17 @@ Partial Class Ventas Next End If + Dim CveVenta As Integer = gvr.DataKey("CveVenta").ToEntero() + Dim CveIE As Integer = gvr.DataKey("CveIE").ToEntero() + Dim Saldo As Decimal = gvr.DataKey("Saldo").ToDecimal() + + Dim ObjVta As New ClsVentas + If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), Saldo, 0, UsuarioActual.CveUsuario, 1, TipoDocumento:="Ant", DiasVencidos:=1, CveVenta:=CveVenta, CveIE:=CveIE) Then + Dim msgAlert = "La autorización se agregó correctamente." + Alert(msgAlert, TipoMensaje.ToastInformacionB) + End If + ObjVta.Dispose() + End Sub #End Region From b5849aa87e388fcb30ed0ebe636da41243de26fd Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 20:20:47 -0700 Subject: [PATCH 4/5] --nombre de promocion en tag de promocion --- Ventas/Ventas.aspx.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 48af166ee..51889df06 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9020,6 +9020,14 @@ Partial Class Ventas If e.Row.DBCampo("TipoDocto").Contiene("Cot", "Rem") AndAlso (CveVenta > 0 AndAlso Not EsCreaApartirDe) Then e.Row.FCLinkButton("imgClone").Visible = False End If + + If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then + If DtPromociones IsNot Nothing Then + Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}") + e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo) + End If + End If + End If If CveVenta <= 0 Then @@ -18570,6 +18578,12 @@ Partial Class Ventas If ObjDescuentoGral.CvePromocionDetalle > 0 Then TagPromocion.Visible = True + If UsuarioActual.CveEmpresa = 189 Then + If DtPromociones IsNot Nothing Then + Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={ObjDescuentoGral.CvePromocionDetalle}") + TagPromocion.Attributes.Add("title", NombrePromo) + End If + End If End If If Me.ObjDescuentoGral.EsPUModificado Then From d00e166d079c32da9e2bf99764c2d7053817dca2 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 21 Jan 2025 03:44:47 -0700 Subject: [PATCH 5/5] cambios --- App_Code/ClsPaginas.vb | 2 +- Nomina/CalculoISRAnual.aspx.cs | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 9f0cf23aa..e0cf162da 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8452,7 +8452,7 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString)) RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo)) RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString)) - RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)" + RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"- RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)")) RptParametro.Add(New ReportParameter("Cantidad", "1")) RptParametro.Add(New ReportParameter("Unidad", "ACT")) diff --git a/Nomina/CalculoISRAnual.aspx.cs b/Nomina/CalculoISRAnual.aspx.cs index 9feeced08..c6e75a204 100644 --- a/Nomina/CalculoISRAnual.aspx.cs +++ b/Nomina/CalculoISRAnual.aspx.cs @@ -310,6 +310,10 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas Choja.Cell(224, 15).Value = droi["IngresosTotales"]; Choja.Cell(233, 15).Value = droi["ISRRetenido"]; + Choja.Cell(248, 9).Value = string.Format("'{0}",UsuarioActual.Empresa.RFC); + Choja.Cell(250, 9).Value = string.Format("'{0}", UsuarioActual.Empresa.Empresa); + + Choja.Cell(37, 15).Value = droi["IngresosTotales"]; Choja.Cell(48, 15).Value = droi["BaseExcenta"];