Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1366,7 +1366,15 @@ Partial Class Compras_Compras
             Dim ObjPersonal As New ClsRH
             ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
             DdlPersonal.DataSource = ObjPersonal.DtResultados
-            DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+
+            If UsuarioActual.CveEmpresa = 119 Then
+                DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados
+            Else
+                DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+            End If
+
+
+
             ObjPersonal.Dispose()
             DdlPersonal.DataBind()
             DdlPersonalReembolso.DataBind()

Compras/eFacturas.aspx.vb

@@ -2710,7 +2710,7 @@ Partial Class Compras_eFacturas
             Dim PrefijoPagos As String = ""
 
             For Each nodoPrefijo As XmlNode In nodeComp.ChildNodes
-                If nodoPrefijo.Prefix <> "tfd" Then
+                If nodoPrefijo.Prefix <> "tfd" And nodoPrefijo.Prefix.ToUpper.Contains("PAGO") Then
                     PrefijoPagos = nodoPrefijo.Prefix
                 End If
             Next