From f8a10e0188b65ec229d9c372cbc518939d3a0dd9 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 6 Sep 2023 16:01:33 -0700 Subject: [PATCH] -RETIVA --- Compras/Compras.aspx.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a311cf493..9a1f41b98 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2491,9 +2491,12 @@ Partial Class Compras_Compras 'primero se asigna la moneda, para que dentro del proveedor carge los anticipos solo de esa moneda DdlProveedor.Visible = False HplProveedor.Visible = True + If dr("CveRetIVAConcepto").ToString.Contiene("2", "3") Then RetIVAFlete = True + If dr("CveRetISRConcepto").ToString.Contiene("3") Then RetISRResico = True CargaProveedor(CveProveedor, "-1") DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString) + DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString) CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1) CveRetISRConceptoOriginal = If(dr("CveRetISRConcepto").ToString.ToEntero > 0, dr("CveRetISRConcepto").ToString.ToEntero, -1) @@ -2506,7 +2509,7 @@ Partial Class Compras_Compras TrRembolsoUpdate.Visible = True TrRembolsoNumero.Visible = True - Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") + Dim DtPersonal As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlRembolsoPersonal.DataSource = DtPersonal DdlRembolsoPersonal.Items.Insert(0, New ListItem("Sin Seleccionar", "-1")) DdlRembolsoPersonal.DataBind()