-merge traspaso almacen

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
@@ -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