Mostrar datos de venta sin validar
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user