-usados remision

2020-01-20 10:14:58 -07:00
parent 34beed42f3
commit ef9727f4de
1 changed files with 1 additions and 1 deletions
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1792,7 +1792,7 @@ Namespace Modelos
        Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas, TipoDocto As String) As Boolean
            Dim Resultado As Boolean = True

-            If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 AndAlso TipoDocto.Contiene("Ing", "Ant") Then
+            If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 AndAlso TipoDocto.Contiene("Ing", "Ant", "Rem") Then
                Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero

                Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)