From 69d3f5380859ea1291536f1c3234fa07e52e1dfc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 21 Apr 2021 18:05:59 -0700
Subject: [PATCH] Mostrar datos de venta sin validar

---
 Bancos/PopIEVentas.aspx.vb | 131 ++++++++++++++++++-------------------
 1 file changed, 63 insertions(+), 68 deletions(-)

diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 9b6ae3795..84d152fbc 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -718,79 +718,76 @@ 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
-                    CargaCliente(CveCliente, "-1")
-                    CveMoneda = dr("CveMoneda").ToString.ToEntero
-                    CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
-                    CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
-                    NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
-                    SerieFolio = dr("SerieFolio").ToString
-                    TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
-                    CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
-
-                    LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
+                CveCliente = dr("CveCliente").ToString.ToEntero
+                CveClienteOriginal = dr("CveCliente").ToString.ToEntero
+                HdnCveCliente.Value = CveCliente.ToString
+                CargaCliente(CveCliente, "-1")
+                CveMoneda = dr("CveMoneda").ToString.ToEntero
+                CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
+                CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
+                NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
+                SerieFolio = dr("SerieFolio").ToString
+                TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
+                CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
+
+                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)
+                        BtnGuardar.Visible = False
+                    End If
+                End If
 
 
 
-                    'Configuración de Modalidad Update
+                MovimientoPagar = New IEMovimiento
+                MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
+                MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
+                MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
+                MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
+                MovimientoPagar.Total = dr("Total").ToString.ToDecimal
+                MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal
+                MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal
+                MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
 
-                    'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
+                LtlTitulo.Text = "Cuentas por Cobrar"
+                LtlTipo2.Text = "Folio de la Venta"
+                LtlTipo3.Text = "Fecha de la Venta"
+                LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}")
+                LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString()
+                LtlFolio.Text = dr("SerieFolio").ToString
+
+                TxtFolio.Enabled = True
+                TxtFechaDocumento.Enabled = True
+                Calendario.Enabled = True
+                TxtPagueseA.Enabled = False
+                TxtImporte.Enabled = True
+
+                DdlCuenta.Enabled = True
+
+                DdlTipoTransaccion.Enabled = True
+                TxtObservaciones.Enabled = True
+
+                RVImporte.Enabled = True
+                RVImporte.MaximumValue = dr("Saldo").ToString.ToDouble.ToString.FormatoNumero
+                TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
+
+                FechaVenta = dr("Fecha").ToString.ToDate
+                SaldoVenta = dr("Saldo").ToString.ToDouble
 
 
-                    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)
-                            BtnGuardar.Visible = False
-                        End If
-                    End If
+                'Cortes de Caja
+                If UsuarioActual.TienePermisoProceso(160) Then
+                    CargaCorteCaja()
+                End If
 
-
-
-                    MovimientoPagar = New IEMovimiento
-                    MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
-                    MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
-                    MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
-                    MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
-                    MovimientoPagar.Total = dr("Total").ToString.ToDecimal
-                    MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal
-                    MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal
-                    MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
-
-                    LtlTitulo.Text = "Cuentas por Cobrar"
-                    LtlTipo2.Text = "Folio de la Venta"
-                    LtlTipo3.Text = "Fecha de la Venta"
-                    LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}")
-                    LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString()
-                    LtlFolio.Text = dr("SerieFolio").ToString
-
-                    TxtFolio.Enabled = True
-                    TxtFechaDocumento.Enabled = True
-                    Calendario.Enabled = True
-                    TxtPagueseA.Enabled = False
-                    TxtImporte.Enabled = True
-
-                    DdlCuenta.Enabled = True
-
-                    DdlTipoTransaccion.Enabled = True
-                    TxtObservaciones.Enabled = True
-
-                    RVImporte.Enabled = True
-                    RVImporte.MaximumValue = dr("Saldo").ToString.ToDouble.ToString.FormatoNumero
-                    TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
-
-                    FechaVenta = dr("Fecha").ToString.ToDate
-                    SaldoVenta = dr("Saldo").ToString.ToDouble
-
-
-                    'Cortes de Caja
-                    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