diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 30c365a91..3ee4bfbb3 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1921,7 +1921,7 @@ Public Class ClsPaginas 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados + If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados.Copy() ObjClientes.Dispose() End If If CveEmpresa <> -1 Then diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e8b616db1..47d5bf7b6 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3383,8 +3383,8 @@ Namespace Modelos 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString + If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString End If End If diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 1225270c4..5ba9b918a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1020,6 +1020,12 @@ Partial Class Bancos_IE DdlPersonal.Enabled = False End If + 'SI TIENE EL DATO DEBE MOSTRALO + If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then + LblPagarA.Visible = True + LblPagarA.Text = ObjIE.PagueseA + End If + IDPoliza = ObjIE.IDPoliza IDCtaContable = ObjIE.IdCtaContable diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index c5b2ba6c6..a096913df 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -3479,50 +3479,8 @@ 2pt - - true - true - - - - - VERSION - - - - =Parameters!CFDIVersion.Value - - - - - - - Textbox5 - 14.03578cm - 16.60468cm - 0.65292cm - 3.68516cm - 50 - - - 2pt - 2pt - 2pt - 2pt - - - 14.6887cm + 14.00096cm