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

11
Bancos/PopIEVentas.aspx.vb
View File

@@ -718,9 +718,6 @@ Partial Class Bancos_PopIEVentas
Validada = True Validada = True
End If End If
If Validada Then
CveCliente = dr("CveCliente").ToString.ToEntero CveCliente = dr("CveCliente").ToString.ToEntero
CveClienteOriginal = dr("CveCliente").ToString.ToEntero CveClienteOriginal = dr("CveCliente").ToString.ToEntero
HdnCveCliente.Value = CveCliente.ToString HdnCveCliente.Value = CveCliente.ToString
@@ -735,13 +732,10 @@ Partial Class Bancos_PopIEVentas
LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }" LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
'Configuración de Modalidad Update 'Configuración de Modalidad Update
'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ") 'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
If dr("TipoDocto").ToString = "Rem" Then If dr("TipoDocto").ToString = "Rem" Then
Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia) 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 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