EMD - poder registrar compra manual, como cuando es reembolso.

Compras/Compras.aspx.vb

@@ -11735,7 +11735,42 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
         CambiaTipoPago(True)
+
+        ValidaPagoSinXML()
+
     End Sub
+
+    Private Sub ValidaPagoSinXML()
+
+        If CveFactura <= 0 And CveCompra <= 0 Then
+
+            If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then
+                If Not ValidaCierrePeriodo() Then
+                    Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
+                    BtnGuardar.Visible = False
+                    UpFacturar.Update()
+                    Exit Sub
+                End If
+            End If
+
+            If UsuarioActual.TienePermisoProceso(365) Then
+
+                BtnGuardar.Visible = False
+
+                If RBLPago.SelectedValue.ToEntero = 3 Then
+                    BtnGuardar.Visible = True
+                End If
+
+            Else
+                BtnGuardar.Visible = True
+            End If
+
+        End If
+
+        UpFacturar.Update()
+
+    End Sub
+
     Private Sub CambiaTipoPago(MostrarModal As Boolean)
         DdlPersonalReembolso.Visible = False
         DdlCuentaCajaChicaReembolso.Visible = False