Mostrar datos de venta sin validar
This commit is contained in:
@@ -718,79 +718,76 @@ Partial Class Bancos_PopIEVentas
|
|||||||
Validada = True
|
Validada = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
CveCliente = dr("CveCliente").ToString.ToEntero
|
||||||
If Validada Then
|
CveClienteOriginal = dr("CveCliente").ToString.ToEntero
|
||||||
|
HdnCveCliente.Value = CveCliente.ToString
|
||||||
CveCliente = dr("CveCliente").ToString.ToEntero
|
CargaCliente(CveCliente, "-1")
|
||||||
CveClienteOriginal = dr("CveCliente").ToString.ToEntero
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||||
HdnCveCliente.Value = CveCliente.ToString
|
CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
|
||||||
CargaCliente(CveCliente, "-1")
|
CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
|
||||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
|
||||||
CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
|
SerieFolio = dr("SerieFolio").ToString
|
||||||
CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
|
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
|
||||||
NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
|
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
|
||||||
SerieFolio = dr("SerieFolio").ToString
|
|
||||||
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
|
LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
|
||||||
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
|
|
||||||
|
'Configuración de Modalidad Update
|
||||||
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
|
||||||
|
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
|
'Cortes de Caja
|
||||||
If dr("TipoDocto").ToString = "Rem" Then
|
If UsuarioActual.TienePermisoProceso(160) Then
|
||||||
Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
|
CargaCorteCaja()
|
||||||
BtnGuardar.Visible = False
|
End If
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
If Not Validada Then
|
||||||
|
BtnGuardar.Visible = False
|
||||||
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
|
|
||||||
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
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user