From 5c9eaf03aa90960d0e214eca309f613e77d190da Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:20:47 -0700
Subject: [PATCH] aplicar NC, sobre un Anticipo

---
 Compras/Compras.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e568e6b2e..8ad8229a3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2785,7 +2785,7 @@ Partial Class Compras_Compras
 
                 DdlTipoComprobante.Enabled = False
                 DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
-                If dr("TipoDocto").ToString = "Fac" Then
+                If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
                     ChkAplicaNotaCredito.Enabled = True
                     ImgAnticiposPendientes.Visible = True
                 Else
@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
         If DdlFletes.SelectedValue.ToEntero > 0 Then
             Dim ObjInventario As New ClsInventarios
             Dim Dr As DataRow = Nothing
-            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
+            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
@@ -19877,7 +19877,7 @@ Private Sub CargaNCINV()
         ObjCompras.Dispose()
 
         Dim ObjInv As New ClsInventarios
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa) Then
+        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, OpcionInventario:=1) Then
             DdlFletes.DataSource = ObjInv.DtResultados
             DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If