AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mostrar datos de venta sin validar

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-04-21 18:05:59 -07:00
parent 6c63ccc299
commit 69d3f53808
1 changed files with 63 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

113
Bancos/PopIEVentas.aspx.vb
View File

@@ -718,79 +718,76 @@ Partial Class Bancos_PopIEVentas
Validada = True Validada = True
End If End If
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
If Validada Then LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
CveCliente = dr("CveCliente").ToString.ToEntero 'Configuración de Modalidad Update
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() }" '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
'Configuración de Modalidad Update Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
BtnGuardar.Visible = False
'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 End If
End If
MovimientoPagar = New IEMovimiento MovimientoPagar = New IEMovimiento
MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
MovimientoPagar.Total = dr("Total").ToString.ToDecimal MovimientoPagar.Total = dr("Total").ToString.ToDecimal
MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal MovimientoPagar.Saldo = dr("Saldo").ToString.ToDecimal
MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal MovimientoPagar.IEPS = dr("IEPS").ToString.ToDecimal
MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
LtlTitulo.Text = "Cuentas por Cobrar" LtlTitulo.Text = "Cuentas por Cobrar"
LtlTipo2.Text = "Folio de la Venta" LtlTipo2.Text = "Folio de la Venta"
LtlTipo3.Text = "Fecha de la Venta" LtlTipo3.Text = "Fecha de la Venta"
LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}") LtlSaldo.Text = If(CveMoneda = 1, $"{dr("Saldo").ToString.FormatoNumero}{" MXN"}", $"{dr("Saldo").ToString.FormatoNumero}{" USD"}")
LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString() LtlFechaVenta.Text = dr("Fecha").ToString.ToDate.ToShortDateString()
LtlFolio.Text = dr("SerieFolio").ToString LtlFolio.Text = dr("SerieFolio").ToString
TxtFolio.Enabled = True TxtFolio.Enabled = True
TxtFechaDocumento.Enabled = True TxtFechaDocumento.Enabled = True
Calendario.Enabled = True Calendario.Enabled = True
TxtPagueseA.Enabled = False TxtPagueseA.Enabled = False
TxtImporte.Enabled = True TxtImporte.Enabled = True
DdlCuenta.Enabled = True DdlCuenta.Enabled = True
DdlTipoTransaccion.Enabled = True DdlTipoTransaccion.Enabled = True
TxtObservaciones.Enabled = True TxtObservaciones.Enabled = True
RVImporte.Enabled = True RVImporte.Enabled = True
RVImporte.MaximumValue = dr("Saldo").ToString.ToDouble.ToString.FormatoNumero RVImporte.MaximumValue = dr("Saldo").ToString.ToDouble.ToString.FormatoNumero
TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
FechaVenta = dr("Fecha").ToString.ToDate FechaVenta = dr("Fecha").ToString.ToDate
SaldoVenta = dr("Saldo").ToString.ToDouble SaldoVenta = dr("Saldo").ToString.ToDouble
'Cortes de Caja 'Cortes de Caja
If UsuarioActual.TienePermisoProceso(160) Then If UsuarioActual.TienePermisoProceso(160) Then
CargaCorteCaja() CargaCorteCaja()
End If End If
If Not Validada Then
BtnGuardar.Visible = False
End If End If
@@ -1388,8 +1385,6 @@ Partial Class Bancos_PopIEVentas
#Region "G U A R D A R" #Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim FechaFactura As Date = FechaVenta Dim FechaFactura As Date = FechaVenta
Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate