Mostrar datos de venta sin validar

Bancos/PopIEVentas.aspx.vb

@@ -718,9 +718,6 @@ Partial Class Bancos_PopIEVentas
                     Validada = True
                 End If
 
-
-                If Validada Then
-
                 CveCliente = dr("CveCliente").ToString.ToEntero
                 CveClienteOriginal = dr("CveCliente").ToString.ToEntero
                 HdnCveCliente.Value = CveCliente.ToString
@@ -735,13 +732,10 @@ Partial Class Bancos_PopIEVentas
 
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
-
-
                 'Configuración de Modalidad Update
 
                 'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
 
-
                 If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
                     If dr("TipoDocto").ToString = "Rem" Then
                         Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
@@ -791,6 +785,9 @@ Partial Class Bancos_PopIEVentas
                 If UsuarioActual.TienePermisoProceso(160) Then
                     CargaCorteCaja()
                 End If
+
+                If Not Validada Then
+                    BtnGuardar.Visible = False
                 End If
 
 
@@ -1388,8 +1385,6 @@ Partial Class Bancos_PopIEVentas
 #Region "G U A R D A R"
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
-
-
         Dim FechaFactura As Date = FechaVenta
         Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate