- corrección de concepto

2025-04-16 17:06:26 -07:00
parent a75b7b787e
commit 5631c57b7a
1 changed files with 1 additions and 1 deletions
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1561,7 +1561,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlProveedoresE.Items.Insert(0, New ListItem("  -  ", "-1"))
    End Sub
    Private Sub CargaComprasE(CveProveedor As Integer, Optional tCveCompra As Integer = -1)
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
+        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 6, 17, 305, 308, 310, 311, 312) Then
            Dim ObjCompras As New ClsCompras

            DdlComprasE.ClearSelection()