From b3119e467a2aa9051e8cd09e7df55e01edef6815 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 10 Oct 2023 21:10:00 -0700 Subject: [PATCH] -- espacios --- Compras/Compras.aspx.vb | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f8b63983a..3a19f2a15 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -18148,7 +18148,7 @@ Partial Class Compras_Compras Ddl.SelectedValueExist("-1") If CvePS > 0 Then - Ddl.Items.Insert(1, New ListItem(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PS"), CvePS.ToString)) + Ddl.Items.Insert(1, New ListItem(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PSCodigo"), CvePS.ToString)) End If If OpIncluirIEPSEnProducto Then @@ -18181,9 +18181,7 @@ Partial Class Compras_Compras Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal) End If Next - CalculaTotales(True) - Else AgregarConceptoIEPS(TrasladoIEPS, CvePS) @@ -18192,22 +18190,16 @@ Partial Class Compras_Compras Dr("IEPSPSPorcentaje") = 0 Next End If - - - TrasladoIEPS = 0 TxtIEPS.Text = 0.ToString.FormatoNumero TrIEPS.Visible = False TmpDT.AcceptChanges() - - End If 'AGREGA OTROS IMPUESTOS COMO CONCEPTO If OtrosImpuestosGasto Then Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero AgregarConceptoIEPS(OtrosImpuestos, CvePS) - OtrosImpuestos = 0 TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero TrOtrosImpuestos.Visible = False