From 79747a30849682656b48f38fe13ea8573f8ff71b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 7 May 2025 17:58:40 -0700 Subject: [PATCH 1/3] Movmientos Impuestos diario de pagos, reembolsos y comprobaciones CveCuentaDeposito en layout y layout grupos --- Compras/ReembolsosComprobaciones.aspx.vb | 14 ++- Contabilidad/DiarioAmortizaciones.aspx | 3 + Contabilidad/DiarioAmortizaciones.aspx.vb | 115 +++++++++++++++++++++- 3 files changed, 126 insertions(+), 6 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index c193f5885..c514d4ee2 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms + Partial Class Compras_ReembolsosComprobaciones Inherits ClsPaginas @@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones Dim Dep As New ClsGenerales If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then - DdlCuentaDeposito.DataSource = Dep.DtResultados + If DdlTipoTransaccion.SelectedValue = "9" Then + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'") + Else + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'") + End If + + If Dep.DtResultados.Rows.Count > 0 Then trCuentaDeposito.Visible = True @@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones #Region " BTN GUARDAR " Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1) - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then + If DdlTipoPago.SelectedValue.ToEntero = 1 AndAlso DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then If CvecuentaDeposito <= 0 Then Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia) Exit Sub @@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones Pago.CveIE = CveIEPago Pago.CveMonedaPago = CveMonedaPago Pago.TCPago = TipoCambioPago - Pago.CvePersonal =CvePersonal + Pago.CvePersonal = CvePersonal ImportePagoTotal = ImportePagoTotal + ImporteMovto If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then diff --git a/Contabilidad/DiarioAmortizaciones.aspx b/Contabilidad/DiarioAmortizaciones.aspx index caf44dd74..1ce31b891 100644 --- a/Contabilidad/DiarioAmortizaciones.aspx +++ b/Contabilidad/DiarioAmortizaciones.aspx @@ -439,6 +439,7 @@ + @@ -616,6 +617,7 @@ +
@@ -791,6 +793,7 @@ +
diff --git a/Contabilidad/DiarioAmortizaciones.aspx.vb b/Contabilidad/DiarioAmortizaciones.aspx.vb index 6d14073d2..9efa59878 100644 --- a/Contabilidad/DiarioAmortizaciones.aspx.vb +++ b/Contabilidad/DiarioAmortizaciones.aspx.vb @@ -624,6 +624,7 @@ Partial Class Contabilidad_DiarioAmortizaciones For Each gvrc As GridViewRow In GvCompras.Rows + Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0 @@ -783,15 +784,51 @@ Partial Class Contabilidad_DiarioAmortizaciones MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If End If + + Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, SubTotal, IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If + If MsgError = "" Then + + Dim GuidMov As String = Guid.NewGuid().ToString() + + Dim NoDeducible = False + Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra + + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then + MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For + End If + + + If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then + Dim GuidMovRetIVA As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then + MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For + End If + End If + + If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then + Dim GuidMovRetISR As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then + MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For + End If + End If + + End If + + End If @@ -1093,6 +1130,7 @@ Partial Class Contabilidad_DiarioAmortizaciones For Each gvrc As GridViewRow In GvCompras.Rows + Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0 @@ -1241,15 +1279,50 @@ Partial Class Contabilidad_DiarioAmortizaciones End If End If + Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value + If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, SubTotal, IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If + If MsgError = "" Then + + Dim GuidMov As String = Guid.NewGuid().ToString() + + Dim NoDeducible = False + Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra + + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then + MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For + End If + + + If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then + Dim GuidMovRetIVA As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then + MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For + End If + End If + + If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then + Dim GuidMovRetISR As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then + MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For + End If + End If + + End If + End If 'afecto los movimientos en los que se hizo el pago @@ -1568,6 +1641,7 @@ Partial Class Contabilidad_DiarioAmortizaciones For Each gvrc As GridViewRow In GvCompras.Rows + Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0 @@ -1666,15 +1740,50 @@ Partial Class Contabilidad_DiarioAmortizaciones End If End If + Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value + If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, SubTotal, IVAAcreditable * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetISR * TipoCambioPago, - Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For End If + If MsgError = "" Then + + Dim GuidMov As String = Guid.NewGuid().ToString() + + Dim NoDeducible = False + Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra + + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then + MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For + End If + + + If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then + Dim GuidMovRetIVA As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then + MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For + End If + End If + + If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then + Dim GuidMovRetISR As String = Guid.NewGuid().ToString() + Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4) + If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago, + Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then + MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For + End If + End If + + End If + End If 'afecto los movimientos en los que se hizo el pago From 7856b11db1675b31381f302dace78cf059b3caf6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 May 2025 19:47:32 -0700 Subject: [PATCH 2/3] --Cambios RepAnticipo-NC-IXCAplicados.aspx --- Ventas/RepAnticipo-NC-IXCAplicados.aspx | 30 ++------- Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs | 75 +++++++++++++--------- 2 files changed, 49 insertions(+), 56 deletions(-) diff --git a/Ventas/RepAnticipo-NC-IXCAplicados.aspx b/Ventas/RepAnticipo-NC-IXCAplicados.aspx index c47a680dd..587f29b93 100644 --- a/Ventas/RepAnticipo-NC-IXCAplicados.aspx +++ b/Ventas/RepAnticipo-NC-IXCAplicados.aspx @@ -87,26 +87,14 @@ -
- - - - - - -
AnticiposNotas de créditoIngresos por Comprobar
- - - + + + diff --git a/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs b/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs index 8bd231733..301e29c7f 100644 --- a/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCAplicados.aspx.cs @@ -55,7 +55,6 @@ public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas Vendedor = 0; CargaSucursales(); CargaClientes(); - CargaVendedores(); CargaDatos(); } @@ -77,13 +76,6 @@ public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas DdlCliente.setEsWebService(true); DdlCliente.Attributes.Add("data-metodo", "getcliente"); } - protected void CargaVendedores() - { - DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); - DdlVendedor.DataBind(); - DdlVendedor.Items.Insert(0, new ListItem("Todos", "-1")); - //DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor); - } protected void CargaDatos() { @@ -99,20 +91,26 @@ public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas CveCliente = DdlCliente.SelectedValue.ToEntero(); } if (ObjVenta.GetRepAnticiposNCIXCAplicados(CveCliente, DdlSucursal.SelectedValue.ToEntero(), ModExtensiones.MinFecha, - ModExtensiones.MaxFecha, UsuarioActual.CveEmpresa, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, DdlVendedor.SelectedValue.ToEntero(), DdlConSaldo.SelectedValue.ToEntero())) + ModExtensiones.MaxFecha, UsuarioActual.CveEmpresa, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, -1, -1)) { - GvDatos.DataSource = ObjVenta.DtResultados; - DtDatos = ObjVenta.DtResultados; + DtDatos = ObjVenta.DtResultados.Copy(); } ObjVenta.Dispose(); + + GvDatos.DataSource = DtDatos; + + GvDatos.Columns[2].Visible = ChkAnticipos.Checked; + GvDatos.Columns[3].Visible = ChkNCxAplicar.Checked; + GvDatos.Columns[4].Visible = ChkIngresosxComprobar.Checked; + GvDatos.DataBind(); + UpDatos.Update(); } protected void BtnConsultar_Click(object sender, EventArgs e) { CargaDatos(); - Vendedor = DdlVendedor.SelectedIndex; } protected void LnkExcel_Click(object sender, EventArgs e) @@ -132,38 +130,49 @@ public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas //String FechaF; //if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $" Fecha Final: {txtFechaF.Text}"; } String FechaICorte; - if (TxtFechaICorte.Text == "" || TxtFechaICorte.Text == "__/__/____") { FechaICorte = ""; } else { FechaICorte = $" Fecha Inicial Corte: {TxtFechaICorte.Text}"; } + if (TxtFechaICorte.Text == "" || TxtFechaICorte.Text == "__/__/____") { FechaICorte = ""; } else { FechaICorte = $" Fecha Inicial: {TxtFechaICorte.Text}"; } String FechaFCorte; - if (TxtFechaFCorte.Text == "" || TxtFechaFCorte.Text == "__/__/____") { FechaFCorte = ""; } else { FechaFCorte = $" Fecha Final Corte: {TxtFechaFCorte.Text}"; } + if (TxtFechaFCorte.Text == "" || TxtFechaFCorte.Text == "__/__/____") { FechaFCorte = ""; } else { FechaFCorte = $" Fecha Final: {TxtFechaFCorte.Text}"; } String Sucursal; if (DdlSucursal.SelectedValue != "-1") { Sucursal = $" Sucursal: {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; } String Cliente; - if (DdlCliente.SelectedValue != "-1") { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } + if (!DdlCliente.SelectedValue.Contiene("-1","")) { Cliente = $" Cliente: {DdlCliente.SelectedText}"; } else { Cliente = ""; } if (DtDatos.Rows.Count > 0) { + System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png"); String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); - List para = new List(); - para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); - para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); - para.Add(new ReportParameter("FechaImpresion", NowADS().ToString())); - para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Sucursal}{FechaICorte}{FechaFCorte}")); - - - - para.Add(new ReportParameter("MostarAnticipos", ChkAnticipos.Checked ? "1" : "0")); - para.Add(new ReportParameter("MostarNCxAplicar", ChkNCxAplicar.Checked ? "1" : "0")); - para.Add(new ReportParameter("MostarIngresosxComprobar", ChkIngresosxComprobar.Checked ? "1" : "0")); - - if (Imagen.Exists) + string AgrupadoPor = $"{Cliente}{Sucursal}{FechaICorte}{FechaFCorte}"; + if (Opcion == "PDF") { - para.Add(new ReportParameter("LogoPath", logouri)); + List para = new List(); + para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); + para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + para.Add(new ReportParameter("FechaImpresion", NowADS().ToString())); + para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {AgrupadoPor}")); + + + + para.Add(new ReportParameter("MostarAnticipos", ChkAnticipos.Checked ? "1" : "0")); + para.Add(new ReportParameter("MostarNCxAplicar", ChkNCxAplicar.Checked ? "1" : "0")); + para.Add(new ReportParameter("MostarIngresosxComprobar", ChkIngresosxComprobar.Checked ? "1" : "0")); + + if (Imagen.Exists) + { + para.Add(new ReportParameter("LogoPath", logouri)); + } + else + { + para.Add(new ReportParameter("LogoPath", "")); + } + ImprimirPDF("Empresas/Grales/Formatos/RepAnt-NC-IXCAplicados.rdlc", DtDatos, para, "Reporte de aplicaciones de Anticipos - NC - IXC", Opcion); } else { - para.Add(new ReportParameter("LogoPath", "")); + var TextoFiltro = AgrupadoPor.Replace(" ", "").Replace("", "").Replace("", ""); + + GvDatos.ExportToExcelGembox("RepAnticiposNCIxCAplicados", UsuarioActual, "Reporte de aplicaciones de Anticipos - NC - Ingresos X Comprobar", DatosFiltros: TextoFiltro, AlturaImagen: 0, AnchoImagen: 0); } - ImprimirPDF("Empresas/Grales/Formatos/RepAnt-NC-IXC.rdlc", DtDatos, para, "Reporte de Anticipos - NCXAplicar - IXC", Opcion); } else { @@ -171,6 +180,10 @@ public partial class Ventas_RepAnticipo_NC_IXCAplicados : ClsPaginas } } + public override void VerifyRenderingInServerForm(System.Web.UI.Control control) + { + } + protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) From 7dbf3d425b159052078294f8f87c25062466ec9f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 May 2025 19:48:03 -0700 Subject: [PATCH 3/3] --FIX VSH. cancelacion de ingreso con aplicacion de anticipos --- App_Code/Modelos.vb | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e7aa74343..c7fe1ca9c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3619,22 +3619,10 @@ Namespace Modelos CveIEAnticipo = -1 CveSubProyectoContabilizar = CveSubProyectoVenta - Dim CveVenta As Integer = ObjFactura.CveVenta - Dim CveVentaAmortizacion As Integer = row2("CveVenta").ToString().ToEntero + Dim CveVenta As Integer = row2("CveVenta").ToString().ToEntero + Dim CveVentaAmortizacion As Integer = ObjFactura.CveVenta + If row2("CveIE").ToString().ToEntero > 0 Then CveIEAnticipo = row2("CveIE").ToString().ToEntero - 'FALTA LA MONEDA PAR ALA CUENTA .RMF Y MANDAR EL CVEIE - - 'SI ES FACTURA EN 0 Y TIENE ANTICIPOS - If (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing")) AndAlso row2("TipoDocto").ToString() = "Ant" Then - CveVenta = row2("CveVenta").ToString().ToEntero - CveVentaAmortizacion = ObjFactura.CveVenta - End If - - 'SI ES EGRESO Y TIENE ANTICIPOS VINCULADOS - If (ObjFactura.TipoDocto.Contiene("Egs") AndAlso row2("TipoDocto").ToString() = "Ant" AndAlso EsNCAmortizacion) Then - CveVenta = row2("CveVenta").ToString().ToEntero - CveVentaAmortizacion = ObjFactura.CveVenta - End If If importeMovimiento <> 0 Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento, ConceptoContable, Referencia, Concepto,