Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -6,6 +6,7 @@ Imports System.Xml
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
+Imports System.IO
 Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
@@ -11735,7 +11736,42 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
         CambiaTipoPago(True)
+
+        ValidaRegistroSinXML()
+
     End Sub
+
+    Private Sub ValidaRegistroSinXML()
+
+        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

Compras/PopUpVerFactura.aspx.vb

@@ -1602,6 +1602,7 @@ Partial Class PopUpVerFactura
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
             If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
                 DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("CveCorte > 0")
+                Fecha = DtReporteCorte.FiltroPrimeroValor("FechaInicial", "")
             End If
 
             If ObjVenta.GetVta_MovimientosCajas(CveCorte, -1) Then