-- espacios

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