-- nuevo proceso, para bloquear registro cuando no viene del xml-efacturas

Compras/Compras.aspx.vb

@@ -1348,6 +1348,7 @@ Partial Class Compras_Compras
             End If
 
             If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True
+            If UsuarioActual.TienePermisoProceso(365) AndAlso IfNull(Request("CveFactura"), "").ToString = "" Then BtnGuardar.Visible = False
 
             If Not CveCompra > 0 Then LIContratos.Visible = True
 
@@ -2344,7 +2345,7 @@ Partial Class Compras_Compras
             End If
         End If
 
-        Dim SubTotalIEPS = TmpDT.SUM("Total").ToString.ToDecimal
+        Dim SubTotalIEPS As Decimal = TmpDT.SUMD("Total")
 
         SubTotal = Math.Round(SubTotalIEPS, 2)
         SubTotalConceptos = Math.Round(SubTotalIEPS, 2)
@@ -9444,7 +9445,7 @@ Partial Class Compras_Compras
 
                 If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 Then
                     Dim Entro As Boolean = False
-                    For Each Documento In ListaDocumentos
+                    For Each Documento As String In ListaDocumentos
                         If e.Row.DBCampo("UUID").ToString = Documento Then
                             Entro = True
                         End If
@@ -9685,7 +9686,7 @@ Partial Class Compras_Compras
 
     End Sub
     Private Function notienepresupuesto() As Boolean
-        Dim notienerecursos = False
+        Dim notienerecursos As Boolean = False
         Dim SinRecursos As New StringBuilder
         SinRecursos.AppendFormat("No se cuenta con los Recursos Suficientes en los siguientes subproyectos ")
         Dim subproyectosSr As New List(Of Integer)
@@ -17792,7 +17793,7 @@ Partial Class Compras_Compras
 
         Dim ObjCompras As New ClsCompras
         Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         For Each Gvr As GridViewRow In GVNCInv.Rows
             If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then