-

2020-08-01 15:09:29 -07:00
parent f2ccad3c22
commit 71e02df9e3
3 changed files with 23 additions and 18 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1327,9 +1327,9 @@ Partial Class PopUpVerFactura

        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero

-        'If CveTipoAlmacen = 19 Or CveTipoAlmacen = 20 Then
-        '    CveConcepto = 24
-        'End If
+        If CveTipoAlmacen = 20 Then
+            CveConcepto = 24
+        End If

        ObjInventarios.Dispose()
        If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente